Discussion :

[orion_]

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 :

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

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.

[ProgElecT]

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 :

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

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:
Il me semblait bien regardes ce post la fonction est mieux documentée

[orion_]

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