Function FileNameInMyDocuments(strFile) 'As String
'Returns the name and path of a file in the user's
'"My Documents" folder
Dim fs
Dim wsh
	Set wsh = CreateObject("WScript.Shell")
	Set fs = CreateObject("Scripting.FileSystemObject")
	FileNameInMyDocuments = fs.BuildPath(wsh.SpecialFolders("MyDocuments"), strFile)
End Function