Function FileNameInTempDir(strFileName) 'As String
'Returns the full path and file name to a file in the user's temporary directory
Dim fs 'As Scripting.FileSystemObject
Const TemporaryFolder = 2
	Set fs = CreateObject("Scripting.FileSystemObject")
	FileNameInTempDir = fs.GetAbsolutePathName(fs.BuildPath(fs.GetSpecialFolder(TemporaryFolder), strFileName))
End Function