Gruppe
API
Problem
Das Windows-Systemverzeichnis soll ermittelt werden.
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