Variable environnement %ProgramFiles% et l' objet Run ?

Bonjour,


J' ai un petit souci pour lancer un vbs qui se trouve dans "c:\Program Files" dont voici le bout de code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Set objFSO = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") If objFSO.FileExists(FichierLog) And ControlDate = True Then MsgBox "Pensez à changer de mot de passe assez rapidement" & vbcrlf & _ "avant expiration de celui-ci", VbInformation Else MsgBox "Votre mot de passe Nérée a expiré !!!" & vbcrlf & _ "Merci de le modifier rapidement sinon cetains scripts seront inopérationnels", VbExclamation oProgramFiles = WshShell.ExpandEnvironmentStrings("%PROGRAMFILES%") oChemin = oProgramFiles & "\ChgPwd\ChgPwdAdmNeree.vbs" MsgBox oChemin ==> il m' affiche bien le chemin "c:\Program Files\ChgPwd\ChgPwdAdmNeree.vbs" WshShell.Exec oChemin ===> par contre ici il me dit que le fichier spécifié est introuvable.Pourquoi ??? WScript.Quit End If

---

La solution de contournement pour le moment que j' ai trouvé et de mettre le fichier dans un répertoire à la racine.

Ex: c:\ChgPwd\ChgPwdAdmNeree.vbs

J' aimerais savoir tout de même pourquoi il ne trouve pas le chemin oProgramFiles & "\ChgPwd\ChgPwdAdmNeree.vbs" alors qu' apparemment il me l' affiche correctement dans une messagebox.

Merci d' avance pour vos réponses.

Cordialement.

Surement un problème d'espace, si le chemin de ton fichier comporte des espaces il faut l'encadrer de "..

Code:

---

1 2 3 4

oChemin = oProgramFiles & "\ChgPwd\ChgPwdAdmNeree.vbs" if inStr(oChemin," ") > 0 then oChemin = """" & oChemin & """" MsgBox oChemin

---

Re,

Merci fonctionne nickel.Un vrai dieu.:king:

100 % de réussite ce forum.

@+++

Désolé, j' ai oublié de te demander :

Comment as-tu déterminé le nombre de double Quote ?Y-a-t'il une règle ?

Code:

---

1 2 3

oChemin = oProgramFiles & "\ChgPwd\ChgPwdAdmNeree.vbs" if inStr(oChemin," ") > 0 then oChemin = """" & oChemin & """" MsgBox oChemin

---

Merci encore pour ta réactivité.



@+++

il faut juste "encadrer" la chaine de double cote... et en VB pour mettre des doubles côtes dans une chaine il faut doubler ces doubles côtes...

donc pour rajouter des " à la chaine , j'ai utilisé la concaténation de ma chaine à 2 chaine contenant un " ... et une chaine contenant un " .. comporte les 2 guillements d'encadrement, et à l'intérieur 2 autres " puisqu'il faut doubler tous les " qui doivent apparaitre dans une chaine ...

:koi: ... c'est clair :roll: