VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 アプリケーション(自・他)関係のメニュー
1.VB2013 から他のアプリケーションを起動する方法色々 
2.アプリケーションを開始した実行可能ファイルのパス等を取得
3.起動したプロセスの終了を検出する方法(2方法)
4.アプリケーションの2重起動を防止する(2方法)
5.ローカルコンピューター上で実行しているプロセスを取得
6.My.Settings を使用して終了時の状態を保存し起動時に設定を反映
7.
8. 
9. 
10. 
11.
12.
 . 
20.その他、当サイト内に掲載のアプリケーション(自・他)に関するサンプル


2.アプリケーションを開始した実行可能ファイルのパス等を取得(04_App_02) (旧、SampleNo.020)
1.アプリケーションを開始した実行可能ファイルのパスを、ファイル名を含めて取得3方法
2.アプリケーションを開始した実行可能ファイルの、ファイル名を含まないパスを取得3方法
3. 
4. 
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:追加なし
その他 :
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.アプリケーションを開始した実行可能ファイルのパスを、ファイル名を含めて取得3方法

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'アプリケーションを開始した実行可能ファイルのパスを、ファイル名を含めて取得します
    TextBox1.Text = ""
    TextBox1.Text &= String.Format("Application.ExecutablePath               = {0}", _
                                    Application.ExecutablePath) & vbCrLf
    TextBox1.Text &= String.Format("Assembly.GetExecutingAssembly().Location = {0}", _
                                    Assembly.GetExecutingAssembly().Location) & vbCrLf
    TextBox1.Text &= String.Format("Assembly.GetEntryAssembly().Location     = {0}", _
                                    Assembly.GetEntryAssembly().Location)

'上記実行結果
'Application.ExecutablePath               = G:\VB2013\04_App_02\bin\Debug\04_App_02.EXE
'Assembly.GetExecutingAssembly().Location = G:\VB2013\04_App_02\bin\Debug\04_App_02.exe
'Assembly.GetEntryAssembly().Location     = G:\VB2013\04_App_02\bin\Debug\04_App_02.exe
End Sub

このページのトップへ移動します。 2.アプリケーションを開始した実行可能ファイルの、ファイル名を含まないパスを取得3方法

Private
Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'アプリケーションを開始した実行可能ファイルの、ファイル名を含まないパスを取得します
    TextBox1.Text = ""
    TextBox1.Text &= String.Format("Application.StartupPath                                  = {0}", _
                                    Application.StartupPath) & vbCrLf
    TextBox1.Text &= String.Format("My.Application.Info.DirectoryPath &                      = {0}", _
                                    My.Application.Info.DirectoryPath) & vbCrLf
    TextBox1.Text &= String.Format("AppDomain.CurrentDomain.SetupInformation.ApplicationBase = {0}", _
                                    AppDomain.CurrentDomain.SetupInformation.ApplicationBase)

'上記実行結果
'Application.StartupPath                                  = G:\VB2013\04_App_02\bin\Debug
'My.Application.Info.DirectoryPath                        = G:\VB2013\04_App_02\bin\Debug
'AppDomain.CurrentDomain.SetupInformation.ApplicationBase = G:\VB2013\04_App_02\bin\Debug\
End Sub

このページのトップへ移動します。 3. 


このページのトップへ移動します。 4. 


このページのトップへ移動します。 5. 


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
アプリのパスを取得  アプリのフルパス  起動フォルダーのパス  exe のパス




このページのトップへ移動します。