• Home
 · 
• Miscellaneous
 · 
• Create a Temporary file.

Create a Temporary file.

Create a Temporary file.

Rate Create a Temporary file.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Option Explicit
'Creates Temp File
'Add a Command button..command1
'Add a Text box
'Copy and paste the following code.
'====COMMENT END==============


Private Function GetTempName(TmpFilePrefix As String) As String
    Dim TempFileName As String * 256
    Dim X As Long
    Dim DriveName As String
    DriveName = "c:\"
    X = GetTempFileName(DriveName, TmpFilePrefix, 0, TempFileName)
    GetTempName = Left$(TempFileName, InStr(TempFileName, Chr(0)) - 1)
End Function
Private Sub Command1_Click()
    Dim FilePrefix As String
    Dim NewFile As String * 256
    FilePrefix = "TEST"
    NewFile = GetTempName(FilePrefix)
    Text1.Text = NewFile
End Sub