ファイルパスの所得する方法を記載します。

相対パスから絶対パスを取得する

Dim sAbsFilePath As String = System.IO.Path.GetFullPath("..\")

 

システムディレクトリまでのパスを取得する

Dim sSystemDir As String = System.Environment.SystemDirectory
'または
Dim sSystemDir As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.System)

 

アプリケーションを開始したファイルのパスを、ファイル名を含めて取得する

Dim sFilePath As String = System.Windows.Forms.Application.ExecutablePath
'または
Dim sFilePath As String = System.Reflection.Assembly.GetExecutingAssembly().Location

 

アプリケーションを開始したファイルの、ファイル名を含まないパスを取得する

Dim sFilePath As String = System.Windows.Forms.Application.StartupPath