Copier, déplacer des fichiers avec affichage de la progression
Soyez le premier à donner votre avis sur cette source.
Vue 11 021 fois - Téléchargée 2 063 fois
Description
Cette source montre la façon d'utiliser l'api CopyFileEx pour copier un fichier avec affichage de la progression et l'api MoveFileWithProgress (sous 2000 et XP) pour déplacer un fichier.
J'ai vu des sources qui faisaient la même chose sans utiliser pas les apis : c'est plus compliqué et surement moins rapide.
N'hésitez pas à commenter et à noter !
Ce code fonctionne sur tous windows sauf l'api MoveFileWithProgress qui n'est utilisable que sous 2000/XP et successeurs. Elle n'existe pas sous NT4.
J'ai vu des sources qui faisaient la même chose sans utiliser pas les apis : c'est plus compliqué et surement moins rapide.
Source / Exemple :
'voir le zip
Conclusion :
N'hésitez pas à commenter et à noter !
Ce code fonctionne sur tous windows sauf l'api MoveFileWithProgress qui n'est utilisable que sous 2000/XP et successeurs. Elle n'existe pas sous NT4.
Codes Sources
A voir également
- Copier, déplacer des fichiers avec affichage de la progression
- Visual Basic / VB.NET : Copier, déplacer, supprimer des fichiers, dossiers via module - Code - Guide
- Tfileop/textfileop, composant visuel pour copier, deplacer, effacer les fichiers/repertoires - Codes sources - Delphi / Pascal (Composants)
- Copier, déplacer ... fichier en plusieurs partie ✓ - Forum - Visual Basic 6
- Visual Basic / VB.NET : Shfileoperation :: copier/supprimer des fichiers - CodeS SourceS - Guide
- Déplacement de fichier - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
Du même auteur (ShareVB)
-
Distributed file system explorer : parcourir la configuration de vos partage de fichiers unifiés
-
Distributed file system explorer : parcourir la configuration de vos partage de fichiers unifiés
-
Share monitor : lister les partages réseaux d'une machine, les fichiers ouverts et les fermer
-
Share monitor : lister les partages réseaux d'une machine, les fichiers ouverts et les fermer
-
Network password : récupérer les mots de passe enregistrés de outlook vers exchange et rdp
Commentaires
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
14normalement, cela devrait être corrigé...
ShareVB
je viens de tester mais la barre de progression et les détails ne sont pas rafraichi
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.