ぷろぐらむノート

カレントディレクトリ（ユーザが現在作業を行っているディレクトリ）を取得または変更をします。

カレントディレクトリを取得する

Dim sCurrentDir As String = System.IO.Directory.GetCurrentDirectory()
'または
Dim sCurrentDir As String = System.Environment.CurrentDirectory

 

カレントディレクトリを変更する

System.IO.Directory.SetCurrentDirectory("C:\work\")
'または
System.Environment.CurrentDirectory = "C:\work\"

 

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

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

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