COPIER, DÉPLACER DES FICHIERS AVEC AFFICHAGE DE LA PROGRESSION

Signaler
Messages postés
264
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
23 mars 2012
-
Messages postés
6
Date d'inscription
mardi 7 février 2012
Statut
Membre
Dernière intervention
7 février 2012
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/8159-copier-deplacer-des-fichiers-avec-affichage-de-la-progression

Messages postés
6
Date d'inscription
mardi 7 février 2012
Statut
Membre
Dernière intervention
7 février 2012

Salut !

Super code qui me sauve la vie et plus fiable que ceux qui n'utilise pas l'api.

Testé sous vista marche impec !!!
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
16
salut,

normalement, cela devrait être corrigé...

ShareVB
Messages postés
19
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
12 juillet 2012

bonjour,

je viens de tester mais la barre de progression et les détails ne sont pas rafraichi
Messages postés
264
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
23 mars 2012

Super ta source!
par contre j'ai un probleme, je copie plusieurs fichierSSS, cela fonctionne numero un sauf que je dois supprimer la ligne suivant car cela me donne l'errreur suivante : Dépacement de capacité
donc je supprime la ligne suivante et cela marche : PB.Value = (TotalBytesTransferred / TotalFileSize) * 100.

voici l'appelle de la fonction
For i = 1 To UBound(variable)
'MsgBox variable(i)
lblFichier.Caption = variable(i)
'-------------------------------------
FichSource = RepSource & variable(i)
FichDestination = App.Path & "\Autorun\Prog" & DossierCopie & "" & variable(i)
If CopyFileWithProgress(FichSource, FichDestination, PB) = 0 Then

Dim Buffer As String
'Crée le buffer
Buffer = Space(200)
'Formate le message
FormatMessage FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, GetLastError, LANG_NEUTRAL, Buffer, 200, ByVal 0&
'affiche le message d'erreur
MsgBox Buffer, vbCritical
Else
MsgBox "Opération réussie avec succès.", vbInformation
End If

'---------------------------------------
Next i


Merci si tu sais pkoi
DraaFil