Modules

5.48 API - Ricavare la Temp Directory
  Alessandro Baraldi

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

Public Function retTmpDir() as string
     Dim tmpstr As String * 256
     GetSystemDirectory 256,tmpstr
     retTmpDir=Left(tmpstr , InStr(tmpstr , Chr(0)) - 1)
End Sub


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.