Discussion :

[Val25]

Bonjour,

J'utilise Visual basic 2008 express depuis peu et je souhaite réaliser une petite application dont le rôle sera de copier un dossier, avec ses sous-dossiers et fichiers dans un autre dossier (équivalent d'un xcopy x:\source y:\destination /s/e).

Comme la copie peut durer un petit moment, je souhaiterais ajouter une barre de progression pour que l'utilisateur ne s'impatiente pas.

Mais après plusieurs heures de recherche, je commence à me décourager car je n'ai rien trouvé d'exploitable.

C'est pourquoi je me tourne vers vous.

Auriez-vous des pistes ou un exemple de code assez simple que je pourrais utiliser comme base ?

Merci d'avance...
cordialement,

[LaChips]

Bonjour,

Vous pouvez regarder du côté du BackgoundWorker pour faire un thread d'arrière plan. Et dans la méthode Work() de ce thread, une boucle qui parcours les fichiers à traiter...

En espérant avoir répondu à votre question.

[Aspic]

Pour le BackGroundWorker, regarde sur ce site il y a un tutos et j'ai même créé une source dessus !

Go to : http://aspic.developpez.com

[tomlev]

Qu'est-ce qui te pose problème exactement ? Je suppose que tu as déjà trouvé le contrôle ProgressBar... pour faire avancer la barre il suffit de modifier la propriété Value au fur et à mesure de ton traitement.

Pour ne pas bloquer l'interface pendant le traitement, il faut faire la copie dans un autre thread (c'est à dire un autre "fil d'exécution" qui s'exécute en parallèle). Le plus simple pour faire ça est d'utiliser le BackgroundWorker, mentionné dans les posts ci-dessus. Par contre, tu ne peux pas modifier l'interface graphique (et donc la ProgressBar) directement à partir d'un autre thread : à la place, tu appelles la méthode ReportProgress du BackgroundWorker, qui va déclencher un évènement (ProgressChanged) sur le thread de l'interface graphique. Il suffit de gérer cet évènement pour mettre à jour la ProgressBar.

Voilà, j'espère que c'est à peu près clair... en lisant les tutoriels ça devrait l'être encore plus !

[Danyel]

Perso, pour la progressbar, je te conseille d'aller chercher le poids total des fichiers/repertoires et de jouer sur cela.
C'est la methode qui est la plus courante et surtout la plus significative.

[Val25]

Merci pour votre aide si rapide. C'est très sympa de votre part.

Effectivement j'utilise une progressbar, mais je ne sais pas quelle méthode de copie pourra rendre la main à chaque fichier pour pouvoir incrémenter la progressbar. Copyfolder ne convient visiblement pas ?

Les conseils de Danyel me font penser à une analyse récursive pour obtenir le poids du dossier à copier (à moins qu'il existe une méthode directe), puis une copie récursive fichier par fichier avec incrément de la progressbar ? Suis-je sur la bonne piste ?

Je ne connaissais pas non plus le BackgoundWorker.
Mais comme je suis débutant, je souhaiterais d'abord faire un code qui soit le plus simple possible et l'optimiser ensuite (quand j'aurai atteins mon objectif principal).

[Val25]

Tout compte fait, j'ai le sentiment que le BGW ne serait peut-être pas une bonne solution pour mon programme car en fait, je ne souhaite pas que l'utilisateur ait la main avant la fin de la copie pour des raisons de procédure (le début d'une étape doit correspondre à la fin de l'étape précédente).
Qu'en pensez-vous ?

[tomlev]

Les conseils de Danyel me font penser à une analyse récursive pour obtenir le poids du dossier à copier (à moins qu'il existe une méthode directe), puis une copie récursive fichier par fichier avec incrément de la progressbar ? Suis-je sur la bonne piste ?

Oui, de toutes façons tu devras parcourir tous les répertoires récursivement. Il n'y a pas de méthode de copie d'un répertoire entier. Donc tu peux, par exemple, établir une liste des fichiers à copier tout en calculant la taille totale, puis copier les fichiers un par un. Le pourcentage de progression que tu indiques avec ReportProgress est tailleCopiée / tailleTotale * 100.

Tout compte fait, j'ai le sentiment que le BGW ne serait peut-être pas une bonne solution pour mon programme car en fait, je ne souhaite pas que l'utilisateur ait la main avant la fin de la copie pour des raisons de procédure (le début d'une étape doit correspondre à la fin de l'étape précédente).
Qu'en pensez-vous ?

Si tu n'utilises pas de BackgroundWorker ou de thread, l'interface ne répondra plus jusqu'à la fin du traitement, donc l'utilisateur ne verra pas la progression...

[Aspic]

Tout compte fait, j'ai le sentiment que le BGW ne serait peut-être pas une bonne solution pour mon programme car en fait, je ne souhaite pas que l'utilisateur ait la main avant la fin de la copie pour des raisons de procédure (le début d'une étape doit correspondre à la fin de l'étape précédente).
Qu'en pensez-vous ?

Dans ce cas là, tu peux toujours bloquer "l interface" (disabled les boutons...) pour que l'utilisateur ne fasse pas de betises toujours en utilisant un BackGroundWorker.

Sinon pour obtenir le poids des fichiers, il faut faire une procédure récursive.

Va dans la FAQ, j'ai écris des exemples pour lister les fichiers et dossiers dans une Treeview et Listview !

[Val25]

Voici le code le plus simple que j'ai pu obtenir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
Private Sub CopyFolder(ByVal Path_Source As String, ByVal Path_destination As String)
        Dim TheSubFolder As String()
        Dim TheFiles As String()
        Dim SubFolder_name As String
        Dim Path_dest As String
 
        TheSubFolder = Directory.GetDirectories(Path_Source)
        TheFiles = Directory.GetFiles(Path_Source)
 
        'On ne garder que la fin du chemin source
        SubFolder_name = Replace(Path_Source, Path_Profile, "")
 
        'On complète le chemin de destination avec la fin du chemin source
        Path_dest = Path_destination & "\" & SubFolder_name
 
        'On crée le sous-dossier destination s'il n'existe pas
        If Not My.Computer.FileSystem.DirectoryExists(Path_dest) Then
            My.Computer.FileSystem.CreateDirectory(Path_dest)
        End If
 
        'On copie les fichiers
        For Each currentFile As String In TheFiles
            My.Computer.FileSystem.CopyFile(currentFile, Path_dest & "\" & System.IO.Path.GetFileName(currentFile), True)
            taille_copie += currentFile.Length
            ProgressBar1.Value = Int(taille_copie)
        Next
 
        'Récursivité pour chaque sous-dossier
        For Each SubFolder As String In TheSubFolder
            Call CopyFolder(SubFolder, Path_destination)
        Next
    End Sub

Voila, c'est la complétion du chemin de destination qui m'a le plus posé problème. En effet, si le chemin source est D:\temp\toto\titi, le chemin de destination devra être D:\sauvegarde\toto\titi.
Cette partie du code ne me plait pas trop car elle fait intervenir une variable globale (path_profile).

Si vous avez une autre idée...

En tout cas merci de votre aide.

[SaumonAgile]

Le code ne me choque pas spécialement, tu pourrais te passer de ta variable globale en passant des chemins complets en paramètre.

Et penses au tag

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call CopyFolder(SubFolder, Path_destination)

Euh... ça fait longtemps qu'on a plus besoin de mettre Call devant un appel de fonction
Je crois que la dernière fois que j'ai eu à utiliser ce mot-clé c'était avec QBASIC

[Aspic]

En tout cas, il y a une solution plus rapide... regarde dans la FAQ !

[Val25]

J'ai cherché mais sans succès.
Serait-il possible de mettre un lien ?
merci

[Aspic]

http://faqvbnet.developpez.com/?page...orm_lb_listDir

[Val25]

Joli code effectivement et en + il gère les erreurs.
Merci.

[Aspic]

Et oui ! La prochaine fois, fait une recherche plus attentive