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 |