home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD99699192000.psc / source / Module3.bas < prev   
Encoding:
BASIC Source File  |  2000-08-04  |  1.9 KB  |  59 lines
  1. Attribute VB_Name = "Module3"
  2.     Declare Function GetTempFileName Lib "kernel32" _
  3.         Alias "GetTempFileNameA" _
  4.         (ByVal lpszPath As String, _
  5.         ByVal lpPrefixString As String, _
  6.         ByVal wUnique As Long, _
  7.         ByVal lpTempFileName As String) As Long
  8.     
  9.     Declare Function GetTempPath Lib "kernel32" _
  10.         Alias "GetTempPathA" _
  11.         (ByVal nBufferLength As Long, _
  12.         ByVal lpBuffer As String) As Long
  13.  
  14.     Declare Function lstrlen Lib "kernel32" _
  15.         Alias "lstrlenA" _
  16.         (ByVal lpString As String) As Long
  17.  
  18.  
  19.     Public Function DZBuildTempFileDir() As String
  20.     '
  21.     '  Local Variables
  22.         Dim wrkTempFileName As String * 660
  23.         Dim wrkTempFileDir As String * 660
  24.         Dim wrkStringLength As Integer
  25.         Dim wrkFlag As Long
  26.         Dim wrkString As String
  27.     '
  28.     '  Set Error Handling
  29.         On Error Resume Next
  30.     '
  31.     '  Set a Blank Name for the File
  32.         wrkTempFileName = String(640, 0)
  33.     '
  34.     '  Assign a Default Name if Everything fails
  35.      '   wrkString = JMRunPath("daisy432.tmp")
  36.     '
  37.     '  Set a Blank Name for the Temporary File Directory
  38.         wrkTempFileDir = String(640, 0)
  39.     '
  40.     '  Get the Temporary File Directory
  41.         wrkFlag = GetTempPath(600, wrkTempFileDir)
  42.     '
  43.     '  Get a Temporary File Name if Directory Found
  44.         If (wrkFlag <> 0) Then
  45.             wrkStringLength = lstrlen(wrkTempFileDir)
  46.             wrkFlag = GetTempFileName(Left$(wrkTempFileDir, _
  47.               wrkStringLength), "dsy", 0, wrkTempFileName)
  48.             If (wrkFlag <> 0) Then
  49.                 'wrkStringLength = lstrlen(wrkTempFileName)
  50.                 wrkString = Left$(wrkTempFileName, wrkStringLength)
  51.             End If
  52.         End If
  53.     '
  54.     '  Return the Temporary File
  55.         DZBuildTempFileDir = wrkString
  56.     End Function
  57.  
  58.  
  59.