現在のディレクトリを知るには

現在のディレクトリを調べます。
キーワードは「GetCurrentDirectory()関数」と「CurDir関数」。
CurDir関数は、VBの標準関数で、現在プログラムが起動しているディレクトリを返します。
GetCurrentDirectory()関数も同じです。

実行中の様子



'カレントプロセスのカレントディレクトリを取得する
Private Declare Function GetCurrentDirectory Lib "kernel32.dll" Alias "GetCurrentDirectoryA" _
    (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long


Private Sub Form_Load()
Dim temp As String

'VBの関数を使って現在のディレクトリ(カレントディレクトリの取得)
Me.Text1(0).Text = CurDir

'API関数を使って現在のディレクトリを取得
temp = String(260, Chr(0))
Call GetCurrentDirectory(Len(temp), temp)
Me.Text1(1).Text = temp
End Sub

ダウンロード