Ouvrir un exe.

Bonjour,

Je souhaite creer un script qui ouvre un fichier exe.

J'ai ce code la qui devrait fonctionner, mais j'obtiens une erreur me disant le que le fichier est introuvable :
Code:

1 2 Set wshell=CreateObject("WScript.Shell") wshell.Run "chemindemonexe"
J'ai pourtant verifier le chemin a plusieurs reprise mais rien n'y fait ... :?

Merci d'avance.

Je pense que ton chemin et/ou nom d'exécutable comporte des espaces et/ou des mots trop long.
Peux tu nous mettre en exemple le chemindemonexe ?

Motif de l'édit:
Un code bricolé vite fait, il y peut être plus propre n'étant pas un VBScripteur mais plutôt un VB6steur ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Function ConvertNomCourt(ChemFic)
'cette fonction convertie un chemin dossier et fichier en nom long
'vers un chemin et fichier cours
'exemple:
'       C:\PersoFrancis\Utilisation de Scripting\Utilisation de Scripting\Projet1.vbp
'       C:\PERSOF~1\UTILIS~1\UTILIS~1\Projet1.vbp
 
Dim Compos, Progra
Set fs = CreateObject("Scripting.FileSystemObject")
 
Compos = Split(ChemFic, "\")
Progra = Compos(0) & "\" 'recuperation de la lettre du disque
'ajout de la chaine de chaque dossier
For T = 1 To UBound(Compos) - 1
 Set f = fs.GetFolder(Progra & Compos(T))
 Progra = Progra & f.ShortName & "\"
Next
'ajout du nom du fichier
Set f = fs.GetFile(Progra & Compos(UBound(Compos)))
Progra = Progra & f.ShortName
'nettoyage
Set f = Nothing
Set fs = Nothing
ConvertNomCourt = Progra
End Function
 
Set wshell=CreateObject("WScript.Shell")
'wshell.Run "C:\PERSOF~1\TOUSLE~1\NEWESS~1\PROJET~1.EXE"
wshell.Run ConvertNomCourt("C:\PersoFrancis\Tous les OCXs\NewEssais\Projet_pourvoir1.exe")

Re motif de l'edit: :aie:
Il me semblait bien regardes ce post la fonction est mieux documentée

Ah oui, c'est tout a fait ca, merci :ccool: