Function FileNameInCurDir(strFileName) 'As String 'Returns the complete path and file name to a file in 'the current directory. For example, "trans.log" might 'return "C:\Windows\Desktop\trans.log" 'if the current directory was "C:\Windows\Desktop" Dim fs 'As Object Set fs = CreateObject("Scripting.FileSystemObject") FileNameInCurDir = fs.GetAbsolutePathName(fs.BuildPath(fs.GetFolder(".").Path, strFileName)) End Function