Défillement copie dossier 1.0

Soyez le premier à donner votre avis sur cette source.

Vue 6 912 fois - Téléchargée 1 608 fois

Télécharger le projet
Commenter

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 1
17 janv. 2012 à 19:01
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 !
gmni Messages postés 91 Date d'inscription mercredi 6 novembre 2002 Statut Membre Dernière intervention 20 mars 2009
13 nov. 2008 à 23:34
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
cs_ABF Messages postés 227 Date d'inscription samedi 21 mai 2005 Statut Membre Dernière intervention 26 avril 2012
25 févr. 2007 à 23:53
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)
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
11 nov. 2004 à 16:21
Merci à toi ZackyBambou, c'est sympa ;)

DarK Sidious
ZackyBambou Messages postés 11 Date d'inscription lundi 20 janvier 2003 Statut Membre Dernière intervention 15 mars 2005
11 nov. 2004 à 15:49
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
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 (cs_DARKSIDIOUS)