Come ottenere il percorso completo per un file in VBScript?

Question

Sto usando l'oggetto Shell.Application, che mi consente di creare script di un file zip.

Ma per farlo funzionare, ho bisogno del percorso completo del file zip. File.zip non funziona. Ho bisogno di c:\the\full\path\file.zip, anche se lo script è in esecuzione nella stessa directory in cui è stato trovato il file.

Come posso ottenere il percorso completo di un file in VBScript?

Qualcosa come l'espansione %~fI nella shell cmd.exe.

Answer 1

In Scripting.FileSystemObject, c'è un metodo chiamato GetAbsolutePathName che fa questo.

Questo è ciò che ha funzionato per me:

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

Ad esempio

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 

sulla linea di comando

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