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:	Views:  20.089
www.tools4vb.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.