COPIER, DÉPLACER DES FICHIERS AVEC AFFICHAGE DE LA PROGRESSION
DraaFil
Messages postés
264
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
23 mars 2012
-
8 févr. 2006 à 03:47
fweds Messages postés 6 Date d'inscription mardi 7 février 2012 Statut Membre Dernière intervention 7 février 2012 - 1 déc. 2008 à 19:49
fweds Messages postés 6 Date d'inscription mardi 7 février 2012 Statut Membre Dernière intervention 7 février 2012 - 1 déc. 2008 à 19:49
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
https://codes-sources.commentcamarche.net/source/8159-copier-deplacer-des-fichiers-avec-affichage-de-la-progression
1 déc. 2008 à 19:49
Super code qui me sauve la vie et plus fiable que ceux qui n'utilise pas l'api.
Testé sous vista marche impec !!!
22 févr. 2008 à 21:55
normalement, cela devrait être corrigé...
ShareVB
20 févr. 2008 à 11:24
je viens de tester mais la barre de progression et les détails ne sont pas rafraichi
8 févr. 2006 à 03:47
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