Discussion :

[poussin_44]

Bonjour,

je dois installer plusieurs logiciels et je veux attendre qu'une installe soit finie avant d'en lancer une autre. Le problème c'est qu'elles se lance toutes les une apres les autres et du coup il y en a certaine qui ne s'installe pas.
Mes installes sont exécutées à partir d'un sript en batch.

Voici mon code :

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
If CheckBox10.Checked = True Then
            'Installation des logiciels par défault
            Process.Start("\\serveur\scripts_installation\Applications_Obligatoires_Communes.cmd")
        End If
 
        Threading.Thread.Sleep(9999) 'Attente de 10 minutes
 
        If CheckBox1.Checked = True Then
            'Installation d'Access
            Process.Start("\\serveur\Install$\scripts_installation\Install_Access.cmd")
        End If
 
        Threading.Thread.Sleep(2000) 'Attente de 2 minutes
 
        If CheckBox2.Checked = True Then
            'Installation de Visio
            Process.Start("\\serveur\Install$\scripts_installation\Install_Visio.cmd")
        End If
 
        Threading.Thread.Sleep(2000) 'Attente de 2 minutes
 
        If CheckBox3.Checked = True Then
            'Installation de FrontPage
            Process.Start("\\serveur\Install$\scripts_installation\Install_FrontPage.cmd")
        End If
 
        Threading.Thread.Sleep(2000) 'Attente de 2 minutes
 
        If CheckBox4.Checked = True Then
            'Installation de Project
            Process.Start("\\serveur\Install$\scripts_installation\Install_Project.cmd")
        End If
 
        Threading.Thread.Sleep(2000) 'Attente de 2 minutes
 
        If CheckBox5.Checked = True Then
            'Installation de OneNote
            Process.Start("\\serveur\Install$\scripts_installation\Install_OneNote.cmd")
        End If
 
        Threading.Thread.Sleep(2000) 'Attente de 2 minutes
 
        Me.Close()

Merci pour votre aide

[Aspic]

Salut, utilise la methode WaitForExit :

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
Private Function StartProcess(ByVal Name As String) As Boolean
        Try
            Dim P As New Process
 
            With P
                .StartInfo.FileName = Name 'donne le path du process
                .Start() 'demarre le process
                .WaitForExit() 'attend la fin de l'install
            End With
 
            Return True
        Catch ex As Exception
            'MsgBox(ex.ToString)
            Return False
        End Try
    End Function

Voila une fonction que tu appelles pour chaque programme que tu dois installer.

Cdl

[poussin_44]

Merci Aspic, ca fonctione nickel !