Create a Temporary file.
Create a Temporary file.
Rate Create a Temporary file.
(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
Create a Temporary file. Comments
No comments yet — be the first to post one!
Post a Comment