Discussion :

[TGV6773]

Bonjour,

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

car avec ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Rien ne s'ouvre.

Pouvez-vous m'aider ?

[ProgElecT]

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

[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.

[ProgElecT]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Flamby38]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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