Declare Function GetTempFileName_ Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpPathName As String, ByVal lpPrefixString As String, ByVal uUnique As Long, ByVal lpTempFileName As String) As Long
Declare Function GetTempPath_ Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

Function GetTempPath()
    Dim s As String, rc As Long
    s = Space(MAX_PATH)
    rc = GetTempPath_(MAX_PATH, s)
    If rc >  0  Then
        GetTempPath = Left(s, rc)
    Else
        GetTempPath = ""
    End If
End Function

Function GetTempFileName(ByVal lpPathName As String, ByVal lpPrefixString As String, ByVal uUnique As Long, lpTempFileName As String) As Long
    Dim s As String, rc As Long
    s = Space(MAX_PATH)
    rc = GetTempFileName_(lpPathName, lpPrefixString, uUnique, s)
    If rc <>  0  Then
        lpTempFileName = Left(s, InStr(s, vbNullChar) -  1 )
        GetTempFileName = rc
    Else
        lpTempFileName = ""
        GetTempFileName =  0 
    End If
End Function