Den Pfad der temporären Dateien, liefert die API Funktion GetTempPath:

Private Const MAX_PATH = 260

Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _
               (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Public Function TempDir() As String
  Dim strBuffer  As String
  Dim lngNameLen As Long

  strBuffer = Space$(MAX_PATH)
  lngNameLen = GetTempPath(Len(strBuffer), strBuffer)
  TempDir = Left$(strBuffer, lngNameLen)
  
End Function