< Public Function GetTempFilename (Optional Extension As String) As String (?)
Comments'------------------------------------------------------------------------- 'Gets name of a temporary text file '-------------------------------------------------------------------------
Public Function GetTempFilename (Optional Extension As String) As String
'Create reference to a filesystem object
Dim FS As Object
Set FS = CreateObject("Scripting.FileSystemObject")
If Extension = "" Then Extension = ".txt"
GetTempFilename = FS.buildpath( _
FS.GetSpecialFolder(2), _
App.ProductName & Extension)
End Function