Discussion :

[Hassassin]

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 :

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
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.

[Pol63]

à 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)

[tomlev]

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

Code :

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

1
2
3
4
 
Dim p as Process
p = Process.Start("macommande", "maVariableDocuments1 leResteDeMaCommande")
p.WaitForExit()

[Pol63]

et un de plus de sauvé

[Hassassin]

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 :

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

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...

[tomlev]

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 :

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

1
2
3
4
5
6
 
Dim procDesktop As Process
If Bureau.Checked = True Then
    procDesktop = Process.Start("macommande")
    procDesktop.WaitForExit()
End If

[Hassassin]

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.

[Pol63]

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

Code :

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

Dim procDesktop As Process = Nothing

[Hassassin]

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 :

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

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.

[Pol63]

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

=> ca me parait assez clair


process veut peut etre le chemin complet ...

[tomlev]

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

=> ca me parait assez clair


process veut peut etre le chemin complet ...

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

[tomlev]

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 :

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

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 :

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

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

[Hassassin]

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

A bientot pour de nouvelles aventures

[Hassassin]

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

[adaneels]

Merci TomLev

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.