109.取得临时文件名

'###############################################################

'函数作用：取得临时文件名

'###############################################################

Public Const MAX_PATH = 260

Public Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA"(ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long,ByVal lpTempFileName As String) As Long

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

Public Function GetTempFile() As String

    Dim lngRet As Long

    Dim strBuffer As String, strTempPath As String

    strBuffer = String$(MAX_PATH, 0)

    lngRet = GetTempPath(Len(strBuffer), strBuffer)

    If lngRet = 0 Then Exit Function

    strTempPath = Left$(strBuffer, lngRet)

    strBuffer = String$(MAX_PATH, 0)

    lngRet = GetTempFileName(strTempPath, "tmp", 0&, strBuffer)

    If lngRet = 0 Then Exit Function

    lngRet = InStr(1, strBuffer, Chr(0))

    If lngRet > 0 Then

        GetTempFile = Left$(strBuffer, lngRet ‐ 1)

    Else

        GetTempFile = strBuffer

    End If

End Function