Generate a filename and path for a working file in the %temp% directory
Function GenerateTempFileName
Const TEMPORARY_FOLDER = 2
Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
Dim tfolder, tname
Set tfolder = fso.GetSpecialFolder(TEMPORARY_FOLDER)
tname = fso.GetTempName
GenerateTempFileName = tfolder & "\" & tname
End Function