Tipp 5.20 - Temp-Verzeichnis ermitteln

Wie kann ich das Temp-Verzeichnis ermitteln?

Mit dieser Funktion können Sie das Temp-Verzeichnis ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Api-AufrufeVerwendete Win32-Api-Aufrufe und Typen: GetTempPath

Beispiel:

Option Explicit
 
Public Declare Function GetTempPath _
    Lib "kernel32" Alias _
    "GetTempPathA" _
    (ByVal nBufferLength As Long, _
    ByVal lpBuffer As String) As Long
 
Public Property Get TempDirectory() As String
  '// -----------------------------------------------------
  '// Methode:   | Gibt das Temporär-Verzeichnis zurück
  '//            | Alternativ als Function deklarierbar:
  '//            | Function TempDirectory() As String
  '// -----------------------------------------------------
  '// Parameter: | entfällt
  '// -----------------------------------------------------
  '// Rückgabe:  | Das Temporär-Verzeichnis
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Const MAXPATH   As Long = 260
  Dim sBuffer     As String
 
  sBuffer = VBA.String(MAXPATH, 0)
  If GetTempPath(Len(sBuffer), sBuffer) Then
    TempDirectory = _
        VBA.Left(sBuffer, VBA.InStr(sBuffer, _
        vbNullChar) - 1)
  End If
 
End Property


Zurück Tipp 5.19 - Tastaturtyp ermitteln | Inhalt | Tipp 5.21 - DFÜ-Verbindungen ermitteln Weiter