|
|
|
|
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
Configuration: Windows Vista Firefox 3.0.11
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. |
Je ne vois pas vraiment en quoi ce que tu proposes est plus court ou plus explicite que :
'path = "\\le\repertoire\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\repertoire\du\script\" path = Replace(WScript.ScriptFullName, WScript.ScriptName, "") Plus le code est simple à comprendre, mieux c'est. |
Ajouter utilisateurs script vbs active directory Bouton browse recuperer chemin Html script vbs Php récupérer chemin de la page ouverte Recuperer adresse fichier nom script shell Recuperer date dans script linux Recuperer fichier apres formatage Recuperer le chemin d'un fichier en c Recuperer script php Récupérer un lien dans un script php Script html recuperation pass msn Script php envoyant une requete sqlen recuperant le résultat pour l'afficher Script php pour recuperer ip Script php recuperer dans carnet contact outlook Script pour recuperer une saisie de caractere sous firefox Script récupération video guignol Script vbs lecteur réseaux %username% Vbs script
