7.5 Wie ermittel ich den Pfad der temporären Dateien?
VB4-VB6
Von: Thorsten Dörfler
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