Windows-/Systemverzeichnis ermitteln Benötigen Sie für Ihr Programm die Pfadangaben zum Windows- bzw. Windows-System-Laufwerk, so verwenden Sie einfach nachfolgende Funktionen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  20.707
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 12 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.8 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Benötigen Sie für Ihr Programm die Pfadangaben zum Windows- bzw. Windows-System-Laufwerk, so verwenden Sie einfach nachfolgende Funktionen.

' Zunächst die benötigten API-Deklarationen
Declare Function GetSystemDirectory Lib "kernel32" _
  Alias "GetSystemDirectoryA" ( _
  ByVal lpBuffer As String, _
  ByVal nSize As Long) As Long
Declare Function GetWindowsDirectory Lib "kernel32" _
  Alias "GetWindowsDirectoryA" ( _
  ByVal lpBuffer As String, _
  ByVal nSize As Long) As Long
 
' Windows-Verzeichnis ermitteln
Public Function GetWindowsDir() As String
  Dim Temp As String
  Dim lResult As Integer
 
  Temp = Space$(256)
  lResult = GetWindowsDirectory(Temp, Len(Temp))
  Temp = left$(Temp, lResult)
  If right$(Temp, 1) <> "\" Then Temp = Temp + "\"
  GetWindowsDir = Temp
End Function
 
' Windows-System-Verzeichnis ermitteln
Public Function GetSystemDir() As String
  Dim Temp As String
  Dim lResult As Long
 
  Temp = Space$(256)
  lResult = GetSystemDirectory(Temp, Len(Temp))
  Temp = left$(Temp, lResult)
  If right$(Temp, 1) <> "\" Then Temp = Temp + "\"
  GetSystemDir = Temp
End Function