script VB + trouver dans quel répertoire je suis (comme PWD pour linux)

Question

Comment obtenir le chemin du répertoire local que je lance mon script VB

Par exemple

J'ai text.vb scénario Je dois ajouter à ce code de script VB qui trouve le chemin du répertoire que je lance le script test.vb (comme PWD pour LINUX/UNIX)

THX

Yael

Answer 1

Je pense que cela fonctionnerait:

Dim currDir 
Set fso = CreateObject("Scripting.FileSystemObject") 
currDir = fso.GetParentFolderName(Wscript.ScriptFullName) 

Edit: Ou peut-être vous pouvez simplement faire ceci:

Replace(WScript.ScriptFullName, WScript.ScriptName, "") 

Answer 2

Voici comment:

Function ExtractFilePath(PathName) 
    For x = Len(PathName) To 1 Step -1 
     If Mid(PathName, x, 1) = "\" Then Exit For 
    Next 
    ExtractFilePath = Left (PathName, x - 1) 
End Function 

ExtractFilePath(WScript.ScriptFullName) 'get current path 

Answer 3

Je pense que ce que vous voulez réellement est WshShell.CurrentDirectory. Sachez que le chemin du script n'est pas nécessairement le répertoire en cours. Ce sera le cas si vous choisissez de le configurer de cette façon, mais il est possible d'exécuter un script à partir d'un dossier différent.

Étant donné ce script CurrDir.vbs dans C: \ scripts:

' CurrDir.vbs 
' show current dir as opposed to script dir 

Dim shl 
Set shl = WScript.CreateObject("WScript.Shell") 

Say "current dir = " & shl.CurrentDirectory 
Say "script name = " & WScript.ScriptFullName 

sub Say(s) 
    WScript.Echo s 
end sub 

avec C: \ scripts dans la variable d'environnement PATH (et ".vbs" dans PATHEXT et CScript comme hôte par défaut), puis quand exécuter à partir du dossier C: \ test, ce sera le résultat:

C:\test>CurrDir 
current dir = C:\test 
script name = C:\scripts\CurrDir.vbs