Discussion :

[Marion33]

Bonsoir à tous !

Je bloque sur un problème assez simple en soi mais je ne trouve pas la solution

Le script me renvoie "fichier introuvable", j'ai cherché sur internet j'ai vu qu'il fallait doubler les guillemets mais sans résultat ...

Voici mon bout de code:

Code :

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

1
2
3
4
5
6
 
 
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
 
oShell.Run (strHomeFolder & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\reglement.txt")

A savoir que si je modifie le chemin en mettant mon fichier sur le bureau ça fonctionne ... c'est l'espace en "Start" et "Menu" qui pose problème .. ! J'ai doublé, triplé les guillemets et les ai bougé dans tous les sens mais pas moyen.

Merci de votre aide !

[hackoofr]

Avec un MsgBox

Code :

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

1
2
3
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
MsgBox( chr(34) & strHomeFolder & "\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\reglement.txt" & chr(34))

[Marion33]

Super merci !

Pas mal l'astuce du msgbox pour vérifier ! je prends note