【書式】
File.Path
ファイルのパスを返します。
パスにはファイル名も含まれます。
Sub test63()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''「C:\Work\Book1.xlsx」を表示します
MsgBox FSO.GetFile("C:\Work\Book1.xlsx").Path
Set FSO = Nothing
End Sub