home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / Drag_To_Ex215183582009.psc / modules / mTempFile.bas < prev   
BASIC Source File  |  2009-05-08  |  1KB  |  26 lines
  1. Attribute VB_Name = "mTempFile"
  2. Option Explicit
  3.  
  4. '**********************************************************************
  5. '* TEMPFILE CREATION STUFF
  6. Public TempFileName As String
  7. Public TempFile As String
  8. 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
  9. Private Declare Function GetTempPath Lib "kernel32.dll" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
  10.  
  11. Public Function CreateTempFile() As String
  12.   'Returns the path and name of the temp file that's created.
  13.   'Generates a temp file name and creates the file for you.
  14.   Dim TempDirPath As String, PathLen As Long
  15.  
  16.   TempDirPath = Space(255)    ' initialize the buffer to receive the path
  17.   PathLen = GetTempPath(255, TempDirPath)    ' read the path name
  18.   TempDirPath = Left(TempDirPath, PathLen)    ' extract data from the variable
  19.   ' Get a uniquely assigned random file
  20.   CreateTempFile = Space(255)    ' initialize buffer to receive the filename
  21.   Call GetTempFileName(TempDirPath, "TMP", 0, CreateTempFile)    ' get a unique temporary file name
  22.   CreateTempFile = Left(CreateTempFile, InStr(CreateTempFile, vbNullChar) - 1)    ' extract data from the variable
  23.   TempFile = CreateTempFile
  24.   TempFileName = Right(CreateTempFile, Len(CreateTempFile) - InStrRev(CreateTempFile, "\"))
  25. End Function
  26.