Lancer commande DOS selon cases cochées

Bonjour,

Je me lance dans la programmation VB et tente de créer déjà mon premier programme à l'aide de l'IDE VStudio2k8.
Le programme que je souhaite créer est censé executer une commande DOS en fonction de ce qui sera coché dans le Formulaire.

Le problème que je rencontre est justement dans l'execution de la commande.
J'utilise un simple test de condition "Si caseA cochée alors "commande DOS".
Je fais donc ça pour caque case mais, une fois les cases cochées, toutes les commandes se lancent en même temps.
"Quand boutonRun appuyé"
"Si caseA cochée alors CommandeDOS1"
"Si caseB cochée alors CommandeDOS2"

J'aimerai donc trouver un moyen pour que les commandes s'exécutent l'une aprés l'autre.

Je colle un bout du code pour que les choses soient plus parlantes.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Public Class FPrincipal   Private Sub FPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dirDossier1 As String = D:\mondossier... Dim dirDossier2 As String = D:\mondossier2... End Sub   Private Sub Documents1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Documents1.CheckedChanged   End Sub   Private Sub Documents2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Documents2.CheckedChanged   End Sub   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lancer.Click If Documents1.Checked Then Shell("macommande maVariableDocuments1 leResteDeMaCommande") If Documents2.Checked Then Shell("macommande maVariableDocuments2 leResteDeMaCommande")   End Sub End Class

---

Google est mon ami, je cherche encore mais étant encore super débutant mes recherches sont limités ne connaissant pas forcément les bon termes.

Merci d'avance à ceux qui voudront bien m'accorder un peu de leur temps.

à la place d'utiliser shell, essaye process.start
la variable process a peut etre un truc pour attendre la fin du process (j'ai deja cru voir passer ca par ici)

je confirme : il y a une méthode WaitForExit dans la classe Process :

Code:

---

1 2 3 4

Dim p as Process p = Process.Start("macommande", "maVariableDocuments1 leResteDeMaCommande") p.WaitForExit()

---

et un de plus de sauvé :lol:

Merci à vous pour vos réponse et la vitesse à laquelle vous m'avez répondu.
Je test ça dans la soirée et vous tiens au courant. ;)

Voilà ce que j'obtien :

Code:

---

1 2 3

Dim procDesktop As Process procDesktop = Process.Start("macommande") If Bureau.Checked = True Then procDesktop()

---

Et sur ma denière ligne "procDesktop()" est souligné en bleu me disant que ça n'est pas une méthode...

Tu t'es un peu mélangé les pinceaux je crois... comme l'indique le message d'erreur, procDesktop n'est pas une méthode : c'est une variable de type Process.
Ensuite, tu lances le process (Process.Start) avant de faire le test sur la checkbox, donc le test ne sert plus à rien...
Il faudrait plutôt faire un truc comme ça :

Code:

---

1 2 3 4 5 6

Dim procDesktop As Process If Bureau.Checked = True Then procDesktop = Process.Start("macommande") procDesktop.WaitForExit() End If

---

Oui tu crois bien ;)
Je refai un essai.

Si je fais ce qui est indiqué il me dit que la variable est utilisée avant qu'une valeure lui soit assignée. :(

Bon je verai ça demain. Trop fatigué là.
Merci encore et bonne nuit.

ceci n'est qu'un avertissement
pour le retirer il faut écrire

Code:

---

Dim procDesktop As Process = Nothing

---

Effectivement en rajoutant = Nothing je n'ai plus l'avertissement mais ma commande refuse de s'executer en tant que processus.
Le code d'execution :

Code:

---

1 2 3 4

Dim procDesktop As Process = Nothing If Bureau.Checked Then procDesktop = Process.Start("Robocopy " & dirDesktop & " Save\Bureau /S /Z /PURGE /XO") procDesktop.WaitForExit()

---

dirDesktop est la variable contenant le chemin du répertoire Bureau.
Je le dit au cas où...
En Shell("macommande") cela ne pose aucun problème d'execution.
Si ce n'est qu'il se lance sans savoir si il n'y a pas d'autre case de cochées.

Le message d'erreur au lancement :
************** Texte de l'exception **************
System.ComponentModel.Win32Exception: Le fichier spécifié est introuvable
à System.Diagnostics.Process.StartWithShellExecuteEx(ProcessStartInfo startInfo)
à System.Diagnostics.Process.Start()
à System.Diagnostics.Process.Start(ProcessStartInfo startInfo)
à System.Diagnostics.Process.Start(String fileName)
à CoCCoSave.FPrincipal.Button1_Click(Object sender, EventArgs e)
à System.Windows.Forms.Control.OnClick(EventArgs e)
à System.Windows.Forms.Button.OnClick(EventArgs e)
à System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent)
à System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks)
à System.Windows.Forms.Control.WndProc(Message& m)
à System.Windows.Forms.ButtonBase.WndProc(Message& m)
à System.Windows.Forms.Button.WndProc(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
à System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
à System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

J'ai tenté de rajouter un : imports System.ComponentModel.Win32Exception
En début de mon formulaire mais ça ne vient pas de là apparament.

system.ComponentModel.Win32Exception: Le fichier spécifié est introuvable

=> ca me parait assez clair :lol:


process veut peut etre le chemin complet ...

Citation:

---

Envoyé par sperot51

system.ComponentModel.Win32Exception: Le fichier spécifié est introuvable

=> ca me parait assez clair :lol:


process veut peut etre le chemin complet ...

---

pas "peut-être", c'est une certitude ;)

Autre problème: avec Process.Start, il ne faut pas mélanger la commande avec ses paramètres. Ton instruction devrait plutôt ressembler à ça:

Code:

---

Process.Start("C:\Dossier\Robocopy", dirDesktop & " Save\Bureau /S /Z /PURGE /XO")

---

Sinon tu peux utiliser Shell quand même si veux... ensuite tu peux récupérer un objet process via le PID

Code:

---

1 2 3 4 5 6

If Bureau.Checked = True Then Dim pid as Integer = Shell("Robocopy" & dirDesktop & " Save\Bureau /S /Z /PURGE /XO") Dim procDesktop As Process = Process.GetProcessById(pid) procDesktop.WaitForExit() End If

---

Ca marche niquel !!!
Un grand MERCI à tout le monde pour votre précieuse aide et votre patience.

A bientot pour de nouvelles aventures :) :yaisse2:

Résultat de mon projet :
http://stemarie.26240.free.fr/perso/...e1.0.0.sfx.exe

Merci TomLev :king:

Le fait de séparer la commande des paramètres m'a aussi sauvé après quelques heures de débug & recherches !

Et bravo au référencement de developpez.com pour référencer si bien et si rapidement des réponses qui date d'aujourd'hui.