２．アプリケーションを開始した実行可能ファイルのパス等を取得(04_App_02) (旧、SampleNo.020)

１．アプリケーションを開始した実行可能ファイルのパスを、ファイル名を含めて取得３方法 ２．アプリケーションを開始した実行可能ファイルの、ファイル名を含まないパスを取得３方法 ３．　 ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU：x86 Option　：[Compare Text] [Explicit On] [Infer On] [Strict On] Imports ：追加なし 参照設定：追加なし その他　： 　　　　： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．アプリケーションを開始した実行可能ファイルのパスを、ファイル名を含めて取得３方法

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

２．アプリケーションを開始した実行可能ファイルの、ファイル名を含まないパスを取得３方法

Application.StartupPath プロパティ 名前空間 : System.Windows.Forms アセンブリ: System.Windows.Forms (system.windows.forms.dll 内) アプリケーションを開始した実行可能ファイルの、ファイル名を含まないパスを取得します。 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

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

アプリのパスを取得　　アプリのフルパス　　起動フォルダーのパス　　exe のパス