Andere System, andere Pfade - und so muss das aktuelle Windows Verzeichnis nicht im Pfad C:\Windows liegen, sondern kann einen individuellen Verzeichnisnamen tragen und auf einem beliebigen Laufwerk untergebracht sein. Die API Funktion GetWindowsDirectory bringt Licht ins Dunkel und liefert den passenden Pfad:

Private Const MAX_PATH = 260

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

Public Function WindowsDir() As String
  Dim strBuffer  As String
  Dim lngNameLen As Long

  strBuffer = Space$(MAX_PATH)
  lngNameLen = GetWindowsDirectory(strBuffer, Len(strBuffer))
  WindowsDir = Left$(strBuffer, lngNameLen)
End Function