GetTempFile – Create a temporary file

Private Declare Function GetTempFileName Lib "Kernel32" Alias _    "GetTempFileNameA" (ByVal lpszPath As String, _    ByVal lpPrefixString As String, ByVal wUnique As Long, _    ByVal lpTempFileName As String) As LongPrivate Declare Function GetTempPath Lib "Kernel32" Alias "GetTempPathA" (ByVal _    nBufferLength As Long, ByVal lpBuffer As String) As Long' Creates a temporary (0 byte) file in the TEMP directory' and returns its namePublic Function GetTempFile(Optional Prefix As String) As String    Dim TempFile As String    Dim TempPath As String    Const MAX_PATH = 260        ' get the path of the TEMP directory    TempPath = Space$(MAX_PATH)    GetTempPath Len(TempPath), TempPath    ' trim off characters in excess    TempPath = Left$(TempPath, InStr(TempPath & vbNullChar, vbNullChar) - 1)        ' get the name of a temporary file in that path, with a given prefix    TempFile = Space$(MAX_PATH)    GetTempFileName TempPath, Prefix, 0, TempFile    GetTempFile = Left$(TempFile, InStr(TempFile & vbNullChar, vbNullChar) - 1)End Function