Jak uzyskać pełną ścieżkę do pliku w VBScript?

Question

Używam obiektu Shell.Application, który pozwala mi tworzyć skrypt z pliku zip.

Ale aby to zadziałało, potrzebuję pełnej ścieżki pliku zip. File.zip nie działa. Potrzebuję c:\the\full\path\file.zip, nawet jeśli skrypt działa w tym samym katalogu, w którym znajduje się plik.

Jak mogę uzyskać pełną ścieżkę pliku w VBScript?

Coś jak rozszerzenie %~fI w powłoce cmd.exe.

Answer 1

Na Scripting.FileSystemObject, jest metoda zwana GetAbsolutePathName że to robi.

To co pracował dla mnie:

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

Na przykład

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 

na linii poleceń

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