Ancora un'API di Windows, questa volta per recuperare il nome della directory temporanea del sistema.
Il sorgente è compatibile con Visual Basic 5 e Visual Basic 6

Public Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
 
Public Function GetTempDir() As String
'***********************************************************************************
'Func.:                 GetTempDir  (Creazione SB-29/03/2000; Mod.:             )
'Desc.:                 Restituisce la directory temporanea di WIndows
'Par. :
'Ret. :                 Il percorso della directory temporanea
'***********************************************************************************
Dim tmp As String 
   tmp = Space$(255)
   GetTempPath 255, tmp 
   GetTempDir = Replace(Trim$(tmp), vbNullChar, "", 1)
End Function