ファイルのフルパスを取得する VBScript

ネットをさまよっている時に見かけたのだが、発見できず。
適当に作ってみました。 SendTo に入れるなりすればよろしいかと思います。

Option Explicit
Dim objFso , strFile , objFile , objIE

Set objFso = WScript.CreateObject("Scripting.FileSystemObject")
strFile = WScript.Arguments.Item(0)
Set objFile = objFso.GetFile(strFile)

Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
objIE.document.parentwindow.clipboardData.SetData "text", objFile.Path
objIE.Quit