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

Beschreibung:
Diese Funktion liefert das Laufwerk und den Verzeichnisnamen für das Windows-Systemverzeichnis 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 Windows-Systemverzeichnis zugreifen möchte/muss.

Deklaration:

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

Parameter:

lpBuffer	Erwartet einen ausreichend großen Bufferstring, welcher dann das Windows-Systemverzeichnis 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 Windows-Systemverzeichnisses und der Funktionsrückgabewert die Länge (Anzahl der Zeichen) des Verzeichnisses. Tritt ein Fehler auf, wird 0 zurückgegeben.

Beispiel:

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

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