[VBS] Executer un fichier dans le même répertoire

Bonjour,

Mon répertoire étant amené a changer de nom ou d'emplacement, je souhaiterais savoir comment Executer mon programme.

car avec ceci:

Code:

---

1 2	Set shell = WScript.CreateObject("Shell.Application") Shell.Open("C:\ScriptDemarrage\Internet.bat")

---

Et bien si je change de répertoire cela ne fonctionne pas.

Si je met:

Code:

---

1 2	Set shell = WScript.CreateObject("Shell.Application") Shell.Open("Internet.bat")

---

Rien ne s'ouvre.

Pouvez-vous m'aider ?

Pensez a regarder/chercher dans la FAQ
Comment obtenir le nom et chemin complet d'un script en cours d'exécution ?

Bonjour,

Merci, mais dans la FAQ il n'y a pas exactement ce que je cherche.

Si mon script est dans C:\Dossier1\Dossier2\script.vbs je souhaiterais alors récupérer juste le "C:\Dossier1\Dossier2\"

Et coller après au bout le nom de mon fichier. Hors, je ne peux pas faire "WScript.ScriptFullName - WScript.ScriptName"

Merci de votre aide.

Citation:

---

Envoyé par TGV6773

Bonjour,

Merci, mais dans la FAQ il n'y a pas exactement ce que je cherche.

Si mon script est dans C:\Dossier1\Dossier2\script.vbs je souhaiterais alors récupérer juste le "C:\Dossier1\Dossier2\"

Et coller après au bout le nom de mon fichier. Hors, je ne peux pas faire "WScript.ScriptFullName - WScript.ScriptName"

Merci de votre aide.

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim MeNameExec Dim ChemComplet Dim ChemSeul Dim NewChemComplet ChemComplet = WScript.ScriptFullName MeNameExec = WScript.ScriptName ChemSeul = left(ChemComplet,len(ChemComplet) - len(MeNameExec)) msgbox ChemSeul NewChemComplet = ChemSeul & "Internet.bat" msgbox NewChemComplet

---

ce serait pas plus simple d'écrire le chemin en relatif?

Code:

---

1 2	Shell.Open("./Internet.bat")

---