Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Ermittlung des Windows-System-Verzeichnisses

Gruppe

Dateien

Problem

Das Windows-Systemverzeichnis soll ermittelt werden.

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

StandardModule: Modul1

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

Sub SystemFolder()
   Dim lLength As Long
   Dim sSysDir As String
   sSysDir = Space(255)
   lLength = GetSystemDirectory(sSysDir, 255)
   sSysDir = Left(sSysDir, lLength)
   MsgBox "Das Systemverzeichnis: " & sSysDir
End Sub