Défillement copie dossier 1.0

Soyez le premier à donner votre avis sur cette source.

Vue 6 737 fois - Téléchargée 1 583 fois

Description

Ce programme est un exemple d'utilisation du contrôle ProgressBar lors de la copie d'un fichier ou de plusieurs fichiers ou même d'un dossier complet avec ses sous répertoires.
J'utilise la fonction API FileCopyEx pour pouvoir récupèrer les informations de progressions de la copie.
J'ai fait ce programme pour venir en aide à SeB-) sur le forum www.ProgOtoP.com et je pense qu'il peux également aider du monde sur ce site, c'est pour cette raison que je le publie.
Ca m'a pris 2 heures pour le faire environ, alors il est possible qu'il reste encore des bugs, mais je ne prendrais pas le temps de les corriger.

Source / Exemple :


'voir le zip

Conclusion :


Comme d'hab, je commente énormément mes sources pour que vous puissiez comprendre comment ca marche.

N'hésitez pas à déposer vos remarques (constructives si possible...)

Aucune nouvelle version n'est prévue, ni même de correction de bug par manque de temps !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
100 % fonctionnel, super commenté !
Je suis en retard, mais toujours en vb5-6 ...
Quelques commandes qui me manquait pour un projet perso.
me reste plus qu'a voir comment je vais utiliser en plus court certaines fonctions !
Merci !
Messages postés
91
Date d'inscription
mercredi 6 novembre 2002
Statut
Membre
Dernière intervention
20 mars 2009

Et bien ABF pourquoi pas ça (copier/coller un dossier/fichier):

Option Explicit

Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String
End Type

Private Const FOF_MULTIDESTFILES = &H1
Private Const FOF_CONFIRMMOUSE = &H2
Private Const FOF_SILENT = &H4
Private Const FOF_RENAMEONCOLLISION = &H8
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_WANTMAPPINGHANDLE = &H20
Private Const FOF_CREATEPROGRESSDLG = &H0
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_FILESONLY = &H80
Private Const FOF_SIMPLEPROGRESS = &H100
Private Const FOF_NOCONFIRMMKDIR = &H200
Private Const FO_MOVE = 1
Private Const FO_COPY = 2
Private Const FO_DELETE = 3
Private Const FO_RENAME = 4

Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Function Copie(ByVal strSource As String, ByVal strDest As String) As Boolean
'
Dim varFOS As SHFILEOPSTRUCT
With varFOS
.wFunc = FO_COPY
.pFrom = strSource
.pTo = strDest
End With
Call SHFileOperation(varFOS)
Copie (varFOS.fAnyOperationsAborted 0)
'
End Function

Private Sub Command1_Click()
Copie "C:\test", "E:\test"
End Sub
Messages postés
227
Date d'inscription
samedi 21 mai 2005
Statut
Membre
Dernière intervention
26 avril 2012

SAlut,

Bien bien...cependant y'a t'il un moyen de recuperer les chemins (fic ou rep) via le copier/couper/coller ou ctrl + C,V,X de l'exploreur et d'ainsi changer le gestionnaire de windows : tous comme super-copier (en Delphi)
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Merci à toi ZackyBambou, c'est sympa ;)

DarK Sidious
Messages postés
11
Date d'inscription
lundi 20 janvier 2003
Statut
Membre
Dernière intervention
15 mars 2005

Good DARKSIDIOUS

C'est bien la première que je félicite quelqu'un pour la qualité de sa source.

Des commentaires compréhensibles y en a en masse et quasi trop :), mais bon on est des gens de différent niveau !

Anyway... si y en avait plus comme toi qui porterait une attention particulière à leur source... on irait encore plus loin et surtout plus vite.

Thx
Afficher les 16 commentaires

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.