Private Declare Function GetWindowsDirectory Lib "kernel32" Alias _
"GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias _
"GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
(ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Private Sub Command1_Click()
Dim WinDir As String
Dim SysDir As String
Dim TempPath As String
Dim l As Long
WinDir = Space(144)
SysDir = Space$(144)
TempPath = Space(144)
' Получаем директорию Windows
l = GetWindowsDirectory(WinDir, 144)
WinDir = Left$(WinDir, l)
' Получаем системную директорию
l = GetSystemDirectory(SysDir, 144)
SysDir = Left$(SysDir, l)
' Получаем директорию для временных файлов
l = GetTempPath(144, TempPath)
TempPath = Left$(TempPath, l)
End Sub