Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ermittlung des Windows-Verzeichnisses

Gruppe

Dateien

Problem

Das Windows-Verzeichnis soll ermittelt werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

StandardModule: Modul1

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

Sub WindowsFolder()
   Dim lLength As Long
   Dim sWinDir As String
   sWinDir = Space(255)
   lLength = GetWindowsDirectory(sWinDir, 255)
   sWinDir = Left(sWinDir, lLength)
   MsgBox "Das Windows-Verzeichnis: " & sWinDir
End Sub