Discussion :

[liocifer]

Bonjour,


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

Code :

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

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.

[SfJ5Rpw8]

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

Code :

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

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

[liocifer]

Re,

Merci fonctionne nickel.Un vrai dieu.

100 % de réussite ce forum.

@+++

[liocifer]

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 :

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

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

Merci encore pour ta réactivité.



@+++

[SfJ5Rpw8]

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

... c'est clair