Option Explicit

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 Long

Private Declare Function GetTempPath Lib "kernel32" Alias _
      "GetTempPathA" (ByVal strBufferLength As Long, ByVal _
      lpBuffer As String) As Long

Public Function CreateTempFile(strPrefix As String) As String
  Dim strBuffer   As String
  Dim nRetVal     As Long
  Dim lngPos      As Long
  Dim strTempDir  As String

  strTempDir = GetTempDir
  strTempDir = strTempDir & _
        IIf(Right$(strTempDir, 1) = "\", "", "\")

  strBuffer = Space(255)
  nRetVal = GetTempFileName( _
        strTempDir, Left$(strPrefix, 3), 0&, strBuffer)

  If nRetVal <> 0 Then
    lngPos = InStr(strBuffer, Chr$(0))
    If lngPos = 0 Then
      CreateTempFile = strBuffer
    Else
      CreateTempFile = Left(strBuffer, lngPos - 1)
    End If
  End If
End Function

Function GetTempDir() As String
  Dim strBuffer As String
  Dim nRetVal   As Long
  Dim strPath   As String

  strBuffer = Space(255)
  nRetVal = GetTempPath(255, strBuffer)

  If nRetVal > 0 Then
    strPath = Left$(strBuffer, nRetVal)
  Else
    strPath = CurDir$
  End If

  GetTempDir = strPath
End Function