Discussion :

[said0011]

Salut

Je cherche un "pure" code Vbs
Sans qui lance le Cscript ou des chose en CMD

Voila
Je cherche un code vbs qui lance un fichier exe dans la même dossier

par ex en CMD : Test.exe ( nom du fichier le lance)
et en VBS : ??????????????,

Et je cherche aussi de faire ca

En cmd : Test.exe > test.txt ( les résultat vont chez test.txt )

Mais en vbs c'est quoi ????


Merci

[SfJ5Rpw8]

Comment exécuter un programme externe ?

[said0011]

Merci

Mais j'ai encore quelque souci

Comment l'utiliser ?

Code :

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

1
2
3
4
5
 
 
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("calc" , 1, true) 
MsgBox "Fin utilisation calculatrice"

Calc c'est le nom du fichier mais comment exécuter par exemple le fichier Test.exe qui se trouve dans la même dossier que le vbs ?

faire ça ?

Code :

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

1
2
3
4
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("Test" , 1, true) 
MsgBox "Fin utilisation calculatrice"

ou bien comment faire la commande Test.exe > test.txt ?

Merci Encore

EDIT: Ça utilise le CSCRIPT, C'est possible sans ça ?

[SfJ5Rpw8]

tu lance comment ton vbs ..? et il se passe quoi ..?

tu peu aussi regarder dans la il y as un code pour connaître le répertoire d'exécution du script en cours... à concaténer à ton nom d'exécutable..

Autre chose ... test.exe ... c'est quoi ..?

[said0011]

En fait test.exe c'est un exemple

Voila
Ça en bas ces le résultat
-Dossier
- Test.exe
- Fichier VBS ( qui lance l'exe )
- Test.txt

Donc

Code :

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

1
2
3
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("Test" , 1, true) 
MsgBox "Fin du programme"

Ça marche ça ce Lance

Mais je voudrais faire ça

Ça ces la commande sous dos Test.exe > Test.txt ( les résultat vont chez Test.txt )

Mais comment faire ça avec le code au dessus ?

Code :

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

1
2
3
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("Test > Test.txt" , 1, true) 
MsgBox "Fin du programme"

?????????


Je cherche ça.

Voila
J espère que tu comprend

[said0011]

Personne ?

[SfJ5Rpw8]

Personne ?

tu n'as toujours pas répondu aux questions de mon précédent message plus haut !

En fait test.exe c'est un exemple

ça c'est pas une réponse ...

essai:

Code :

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

Return = WshShell.Run("cmd /c Test > Test.txt" , 1, true)

[said0011]

Merciiiiiii

Ca marche impec super emrci beaucoup !