Discussion :

[flieppo]

Bonjour,
J'ai déjà pas mal cherché sur le net sans succès, c'est pourquoi je me tourne maintenant vers vous, chers developpiens, mon dernier recours.
En fait dans mon programme en VB, j'execute un programme en ligne de commande grace à l'instruction "Shell".
Je souhaiterais récupérer le résultat de cette execution dans une variable de mon programme.
J'ai essayé le coup du " > c:\recup.txt" et ça ne fonctionne que pour les commande qui existe nativement dans la commande, si j'ai bien compris. Mais pour un programme externe, ça ne fonctionne pas :'(
Auriez vous une solution ?
Merci d'avance.

[Delbeke]

Je pense que tu cherche quelque chose comme çà

Code :

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

1
2
3
4
Private Sub Command1_Click()
  Shell "cmd.exe /C c:\windows\system32\ping.exe 192.168.0.1 > c:\testping.txt", vbHide
  MsgBox "fait"
End Sub

[flieppo]

Salut,
Merci pour ta réponse.
Cependant, j'avais déjà vu ça sur internet, et bizarrement, ça fonctionne pour le ping, mais pas pour mon programme.
Personnellement je ne comprends pas pourquoi mais si t'as une autre solution, ça serait super classe
Merci.

[Delbeke]

A priori, il n'y a pas de raison que çà ne fonctionne pas. Ping n'est pas une commande intrinsèque du DOS mais un executable comme un autre.

As tu essayé de l'exécuter à la main depuis une fenetre DOS?

Peut être que si tu nous donnais un extrait de ton code ?

[flieppo]

J'ai essayé dans la console, ça ne fonctionne pas non plus (alors que pour le ping, ça marche bien).
Voila ce que je tape, une fois placé dans le bon répertoire :
cmd.exe /C AlBatch.exe "c:\base_de_test.ald" /check > c:\resultat.txt

Albatch est une commande associée au programme Captaris Alchemy et le "/check" permet de vérifier une base de données de test.

(Et quand la vérification se déroule bien, le résultat suivant est affiché dans la console : "Base de données OK")

[OhMonBato]

Mais il n'y a rien dans le fichier "resultat.txt" ?

[flieppo]

Absolument rien.

[Delbeke]

Si tu n'as pas de résultat en manuel, c'est pas étonnant que tu n'aies rien non plus en mode programmé

[flieppo]

Oui, ça c'est sûr...
Mais comment faire pour avoir un résultat en manuel ?

[OhMonBato]

Je ne sais pas si ça fait avancer le schmilblick mais j'ai fait un essai de cette façon :

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
 
Option Explicit
' Avec référence à Wshom.ocx (Windows Script Host Object Model)
Private Sub Command1_Click()
Dim Wsh As WshShell
Set Wsh = New WshShell
'La ligne suivante fonctionne bien mais il faut fermer la console DOS manuellement
Wsh.Run "cmd /k dir c:\ >>c:\test\toto.txt", 5, 1
'La ligne suivante ferme la console DOS mais du coup le fichier est vide....
'Wsh.Run "cmd /k dir c:\ && exit >>c:\test\toto.txt", 5, 1
End Sub
 
' Sans référence à Wshom.ocx (Windows Script Host Object Model)
Private Sub Command2_Click()
Dim Wsh As Object
Set Wsh = CreateObject("WScript.Shell")
Wsh.Run "cmd /k dir c:\ >>c:\test\toto.txt", 5, 1
End Sub