CodeItBetter Programming Another VB Programming Blog

'System & API - How to get unique Temp File Name
Option Explicit
 
Private Declare Function GetTempFileNameA Lib "kernel32" (ByVal lpszPath As String, _
    ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
 
Public Function GetTempFileName() As String
    Dim s As String, s2 As String
    s2 = GetTempPath
    s = Space(Len(s2) + MAX_FILENAME_LEN)
    Call GetTempFileNameA(s2, App.EXEName, UNIQUE_NAME, s)
    GetTempFileName = Left$(s, InStr(s, Chr$(0)) - 1)
End Function