Comment obtenir le chemin d'accès complet d'un fichier en VBScript?

Je suis en utilisant le Shell.Application objet, ce qui me permet de faire un script de création d'un fichier zip.

Mais pour que cela fonctionne, j'ai besoin de chemin d'accès complet du fichier zip. File.zip ne fonctionne pas. J'ai besoin de c:\the\full\path\file.zip, même si le script est en cours d'exécution dans le même répertoire où se trouve le fichier.

Comment puis-je obtenir le chemin d'accès complet d'un fichier dans VBScript?

Quelque chose comme la %~fI expansion dans le cmd.exe shell.

OriginalL'auteur Cheeso | 2010-01-24

  1. 26

    Sur L'écriture de scripts.FileSystemObject, il y a une méthode appelée GetAbsolutePathName qui fait cela.

    C'est ce qui a fonctionné pour moi: 

    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

    OriginalL'auteur Cheeso

  2. 5

    Par exemple

    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

    sur la ligne de commande

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

    OriginalL'auteur ghostdog74