0
Name das Windows-Verzeichnisses ermitteln
ThE WIZARD
PROGRAMMIEREN


'***********************************************
'Deklaration der API-Funktion
'***********************************************

Declare Function GetWindowsDirectory Lib_
"kernel32" Alias "GetWindowsDirectoryA"_
(ByVal Puffer As String, ByVal PufferLänge As_
Long) As Long


'***********************************************
'Name des Windows-Verzeichnisses ermitteln
'***********************************************

Sub WinVerzErmitteln()
    Dim FnWert As Long
    Dim Puffer As String
    Dim WinVerz As String
    
    Puffer = String$(255, 0)
    FnWert = GetWindowsDirectory(Puffer, 255)
    WinVerz = Left$(Puffer, FnWert)
    MsgBox WinVerz
End Sub