CISA FotoGallery

Statistiche

Tot. visite contenuti : 927940
Home Articoli tecnici API Ricavare la Temp Dir

Ricavare la Temp Dir

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 Function