Как получить полный путь к файлу в VBScript?

Question

Я использую объект Shell.Application, который позволяет мне создавать сценарии для создания zip-файла.

Но чтобы это работало, мне нужен полный путь к zip-файлу. File.zip не работает. Мне нужно c:\the\full\path\file.zip, даже если скрипт работает в том же каталоге, где находится файл.

Как получить полный путь к файлу в VBScript ?

Что-то вроде расширения %~fI в оболочке cmd.exe.

Answer 1

В Scripting.FileSystemObject , есть метод с именем GetAbsolutePathName , который делает это.

Вот что у меня сработало:

Dim folderName
folderName = "..\.."

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Dim fullpath
fullpath = fso.GetAbsolutePathName(folderName)

WScript.Echo "folder spec: " & folderName
WScript.Echo "fullpath:    " & fullpath

Answer 2

Например

Set objFS=CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
strFile= objArgs(0)
Set objFile = objFS.OpenTextFile(strFile)
Set objFile = objFS.GetFile(strFile)
WScript.Echo objFile.Path 

в командной строке

c:\test> cscript //nologo myscript.vbs myfile