VBS:Récuper le chemin du script

Question

Bonjour,
J'ai créé un script qui dois enregistrez dans un fichier texte le contenu d'une variable (Id), je voudrais enregistrer le fichier texte dans le chemin d'accès du script :

[...]
Const ForReading = 1, ForWriting = 2
   Set WshShell = WScript.CreateObject("WScript.Shell")
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("***\Identifiant.txt", ForWriting,true)
   f.write(Id) 
[...]

Je voudrais savoir si il y a un moyen pour à la place des *** mettre le chemin d'accès du script en exécution...

Merci

Z3n1th · Accepted Answer

Je ne vois pas vraiment en quoi ce que tu proposes est plus court ou plus explicite que :
'path = "\leepertoire\du\script"
path = fso.GetParentFolderName(wscript.ScriptFullName)
Si tu veux absolument faire toi-même le découpage du string, tu n'as qu'à faire :
'path = "\leepertoire\du\script\"
path = Replace(WScript.ScriptFullName, WScript.ScriptName, "")
Plus le code est simple à comprendre, mieux c'est.

Z3n1th · Answer

Voici un premier exemple :
'Une fausse solution
Dim fso, f, path
Set fso = CreateObject("Scripting.FileSystemObject")
path = fso.getabsolutepathname(".")
Set f = fso.OpenTextFile(path & "\Identifiant.txt", ForWriting,true)
L'ennui de ce code, c'est qu'il donne le répertoire d'où l'on exécute le script, donc si tu le lances avec cmd ou un autre programme, il faudrait d'abord se placer dans le répertoire du script. Donc utilise plutôt ce code :
Dim fso, f, path
Set fso = CreateObject("Scripting.FileSystemObject")
path = fso.GetParentFolderName(wscript.ScriptFullName)
Set f = fso.OpenTextFile(path & "\Identifiant.txt", ForWriting,true)
Là, ça donne le même résultat quel que soit le dossier depuis lequel tu l'exécutes.

Sinon, en hta, j'utiliserais ceci (si quelqu'un a une meilleure solution, ça m'intéresse) :
Set fso = CreateObject("Scripting.FileSystemObject")
path = Replace(Replace(document.location.pathname, "MonFichier.hta", ""), "%20", " ")
Set f = fso.OpenTextFile(path & "Identifiant.txt", ForWriting,true)
Si quelqu'un a mieux, qu'il poste ici, je n'ai débuté le vbs que très récemment et mes connaissances de ce langage se résument à ce que Google m'apporte.

Gamarah · Answer

Merci... Je viens aussi de trouver une solution plus courte :

Path = Left(WScript.ScriptFullName, InStr(WScript.ScriptFullName, WScript.ScriptName)-1)

VBS:Récuper le chemin du script

3 réponses

Discussions similaires

Newsletters