Wollen Sie im Windows-Verzeichnis beispielsweise INI-Dateien ablegen,
    so können dies nicht einfach auf das Verzeichnis C:\WINDOWS beziehen;
    was ist, wenn sich Windows in C:\WIN95, oder gar in D:\Windows befindet ?
    Ermitteln Sie also zuvor das wahre Windows-Verzeichnis:

ERFORDERLICHE OBJEKTE

-- keine --

 FORM-CODE

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

   Private Function WinDir() As String
      Dim sDirBuf As String * 255
      StrLen = GetWindowsDirectory(sDirBuf, 255)
      WinDir = Left$(sDirBuf, StrLen)
   End Function

   Private Sub Command1_Click()
       MsgBox "Das Windows-Verzeichnis lautet " & WinDir(), _
          vbInformation
   End Sub