GetWindowsDirectory-Funktion Diese Funktion liefert das Laufwerk und den Verzeichnisnamen für das Windows zurück.
Betriebssystem:  Win95, Win98, WinNT, Win2000, WinME	Views:  10.268

Beschreibung:
Diese Funktion liefert das Laufwerk und den Verzeichnisnamen für das Windows zurück. Da man nicht davon ausgehen darf, daß jeder Anwender das Betriebssystem auf C:\Windows installiert hat, sollte man immer diese Funktion verwenden, wenn man gezielt auf das Windowsverzeichnis zugreifen möchte/muss.

Deklaration:

Declare Function GetWindowsDirectory Lib "kernel32.dll" _
  Alias "GetWindowsDirectoryA" ( _
  ByVal lpBuffer As String, _
  ByVal nSize As Long) As Long

Parameter:

lpBuffer	Erwartet einen ausreichend großen Bufferstring, welcher dann das Windowsverzeichnis enthält.
nSize	Gibt die Größe des reservierten Buffers in Bytes an (Länge/Anzahl Zeichen).

Rückgabewert:
War der Funktionsaufruf erfolgreich enthält lpBuffer den Verzeichnisnamen des Windowsverzeichnisses und der Funktionsrückgabewert die Länge (Anzahl der Zeichen) des Verzeichnisses. Tritt ein Fehler auf, wird 0 zurückgegeben.

Beispiel:

Private Declare Function GetWindowsDirectory Lib "kernel32.dll" _
  Alias "GetWindowsDirectoryA" ( _
  ByVal lpBuffer As String, _
  ByVal nSize As Long) As Long

Private Sub Command1_Click () 
  Dim RetVal As Long
  Dim WinDir As String
 
  WinDir = Space$(256)
  RetVal = GetWindowsDirectory(WinDir, Len(WinDir)) 
 
  If RetVal <> 0 Then 
    Debug.Print "Windowsverzeichnis: " & Left$(WinDir, RetVal) 
  End If 
End Sub