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 Form_Load()
Dim Buffer As String
' Buffer dimensionieren
Buffer = Space(255)
 
    Label1.Caption = Left(Buffer, GetWindowsDirectory(Buffer, Len(Buffer)))
 
    Label2.Caption = Left(Buffer, GetSystemDirectory(Buffer, Len(Buffer)))
 
    Call GetTempPath(255, Buffer)
    Label3.Caption = Left$(Buffer, InStr(Buffer, Chr$(0)) - 1)
 
End Sub