cs_Byrong
Messages postés224Date d'inscriptionmercredi 28 septembre 2005StatutMembreDernière intervention24 juillet 2013
-
25 nov. 2009 à 10:20
cs_Byrong
Messages postés224Date d'inscriptionmercredi 28 septembre 2005StatutMembreDernière intervention24 juillet 2013
-
25 nov. 2009 à 14:18
Bonjour
voila je fais une copie de fichier avec une source et une destination mais je n'arrive pas a y ajouté une progressbar
les infos sources et destination s'obtienne à l'aide du formulaire initiale et le transfert se lance au chargement d'un autre formulaire qui contient la progressbar
voici mon code mais il contient surement beaucoup d'erreur
Private Sub CopyAvecProgressBar(ByVal ParamArray ListTab())
For y = 0 To TotalSelection - 1
ListTab(y) = Direction(y, 0)
Next
' Minimum à 1
MyBarre.Minimum = 0
' Maximum= nombre total de fichier à copier.
MyBarre.Maximum = TotalSelection '(nombre total d'élément à copier)
' On initialise la ProgressBar.
MyBarre.Value = 0
' On indique le pas.
MyBarre.Step = 1
' Boucle de copie.
Dim x As Integer
For x = 0 To TotalSelection - 1
FileCopy((Direction(x, 0)), (Destination & "" & Direction(x, 1)))
LabTransfert.Text = Direction(x, 0)
LabVers.Text = "Vers : " & (Destination & "" & Direction(x, 1))
MyBarre.PerformStep()
Next x
End Sub