1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources API
  5. Copier, déplacer des fichiers avec affichage de la progression

Copier, déplacer des fichiers avec affichage de la progression

Soyez le premier à donner votre avis sur cette source.

Vue 10 983 fois - Téléchargée 2 059 fois

Télécharger le projet
Commenter

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.

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.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
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 !!!
Signaler
Messages postés
2676
Date d'inscription
vendredi 28 juin 2002
Statut
Membre
Dernière intervention
13 janvier 2016
 14
salut,

normalement, cela devrait être corrigé...

ShareVB
Signaler
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
Signaler
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
S'inscrire maintenant

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.

Du même auteur (ShareVB)