Microsoft Access Programmierrezepte

R12.4 Das Windows-Verzeichnis bestimmen

Aufgabe

Sie möchten das Installationsverzeichnis Ihres Betriebssystems ermitteln.

Lösung

Verwenden Sie die API-Funktion GetWindowsDirectory.

Oberfläche

Ein einfaches Formular mit einem Textfeld und zwei Befehlsschaltflächen genügt zum Testen.

Quelltext

Option Explicit

Einbinden der API-Funktion:

Private Const MAX_PATH As Integer = 255

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

Die Hilfsfunktion (wir müssen einen Puffer erzeugen und übergeben):

Function WindowsDirectory()
Dim s$, l&
    s = String(MAX_PATH, 0)
    l = GetWindowsDirectoryA(s, MAX_PATH)
    If l <> 0 Then
        WindowsDirectory = Left(s, l)
    Else
        WindowsDirectory = ""
    End If
End Function

Die Verwendung: ...