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