Microsoft Access Programmierrezepte

R12.5 Das Temp-Verzeichnis ermitteln

Aufgabe

Möchten Sie kurzzeitig Daten auf der Festplatte ablegen, z.B. um eine Datenbank zu komprimieren etc., bietet sich das Temp-Verzeichnis an. Dazu müssen Sie jedoch den Pfad bestimmen.

Lösung

Verwenden Sie die API-Funktion GetTempPath.

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 GetTempPathA Lib "kernel32" (ByVal nBufferLength As Long, _
                                                         ByVal lpBuffer As String) As Long

Unsere Hilfsfunktion (Puffer erzeugen, Funktion aufrufen, Pufferlänge bestimmen):

Function TempDirectory() Dim s$, l& s = String(MAX_PATH, 0) l = GetTempPathA(MAX_PATH, s) ...