Windows/Windows\Systemディレクトリを探すには

Windows/Windows\Systemディレクトリを探します。
キーワードは「GetSystemDirectory()関数」と「GetWindowsDirectory()関数」。
GetWindowsDirectory()関数は、Windowsディレクトリを
GetSystemDirectory()関数は、Windows\Systemディレクトリを取得する関数です。

実行中の様子



'Windowsのシステムディレクトリのパス名を取得する
Private Declare Function GetSystemDirectory Lib "kernel32.dll" Alias "GetSystemDirectoryA" _
    (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'Windowsディレクトリのパス名を取得する
Private Declare Function GetWindowsDirectory Lib "kernel32.dll" Alias "GetWindowsDirectoryA" _
    (ByVal lpBuffer As String, ByVal uSize As Long) As Long


Private Sub Form_Load()
Dim temp As String

'Windowsの取得
temp = String(260, Chr(0))
Call GetWindowsDirectory(temp, Len(temp))
Me.Text1(0).Text = temp

'Windows\Systemの取得
temp = String(260, Chr(0))
Call GetSystemDirectory(temp, Len(temp))
Me.Text1(1).Text = temp

End Sub

ダウンロード