boujours à tous et à toutes,
Voila j'ai fait un petit programme qui ce lance par le biais d'une planification windows jusque l'a pas de soucis.
Mon programme doit copier un fichier de 60,5go d'un DD externe à un autre DD externe (ce programme copie un fichier virtual disk un .vhd).
mais voilà, premier probleme, je sais pas l'avancement de la copie et de deux le programme ce bloque (mais la copie à l'air de ce faire).
donc j'aimerais savoir, si il y a un moyen deja de débloquer le programme en question (ne plus avoir le programme ne repond plus car si on le ferme la copie est bonne à refaire et si on met une progressbar la progressbar en question ne marchera pas) et comment faire pour utiliser la progressbar lors d'une copie

je mets mon programme:


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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
Public Class Form1
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        'on cherche le fichier sur un disque E, F, G, et H
 
        'teste l'exitance du fichier a copier sur le E
        If System.IO.File.Exists("e:\DDexterne.vhd") Then
 
            If System.IO.File.Exists("f:\hhh.txt") Then
                File.Copy("e:\DDexterne.vhd", "f:\copyDDexterne.vhd")
            ElseIf System.IO.File.Exists("g:\hhh.txt") Then
                File.Copy("e:\DDexterne.vhd", "g:\copyDDexterne.vhd")
            ElseIf System.IO.File.Exists("h:\hhh.txt") Then
                File.Copy("e:\DDexterne.vhd", "h:\copyDDexterne.vhd")
 
            End If
 
            'teste l'exitance du fichier a copier sur le F
        ElseIf System.IO.File.Exists("F:\DDexterne.vhd") Then
 
            If System.IO.File.Exists("e:\hhh.txt") Then
                File.Copy("f:\DDexterne.vhd", "e:\copyDDexterne.vhd")
            ElseIf System.IO.File.Exists("g:\hhh.txt") Then
                File.Copy("f:\DDexterne.vhd", "g:\copyDDexterne.vhd")
            ElseIf System.IO.File.Exists("h:\hhh.txt") Then
                File.Copy("f:\DDexterne.vhd", "h:\copyDDexterne.vhd")
            End If
 
            'teste l'exitance du fichier a copier sur le g
        ElseIf System.IO.File.Exists("g:\DDexterne.vhd") Then
 
            If System.IO.File.Exists("e:\hhh.txt") Then
                File.Copy("g:\DDexterne.vhd", "e:\copyDDexterne.vhd")
            ElseIf System.IO.File.Exists("f:\hhh.txt") Then
                File.Copy("g:\DDexterne.vhd", "f:\copyDDexterne.vhd")
            ElseIf System.IO.File.Exists("h:\hhh.txt") Then
                File.Copy("g:\DDexterne.vhd", "h:\copyDDexterne.vhd")
            End If
 
            'teste l'exitance du fichier a copier sur le h
        ElseIf System.IO.File.Exists("h:\DDexterne.vhd") Then
 
            If System.IO.File.Exists("e:\hhh.txt") Then
                File.Copy("h:\DDexterne.vhd", "e:\copyDDexterne.vhd")
            ElseIf System.IO.File.Exists("g:\hhh.txt") Then
                File.Copy("h:\DDexterne.vhd", "g:\copyDDexterne.vhd")
            ElseIf System.IO.File.Exists("f:\hhh.txt") Then
                File.Copy("h:\DDexterne.vhd", "f:\copyDDexterne.vhd")
            End If
 
            End
 
 
        End If
    End Sub
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
 
        If Label1.ForeColor = Color.Black Then
            Label1.ForeColor = Label1.BackColor
        Else
            Label1.ForeColor = Color.Black' met ici ta couleur habituelle d'écriture
        End If
 
    End Sub
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class