Discussion :

[jeremy L1]

bonjour à tous

mon programme permet la copie d'un dossier dans un autre

je souhaiterai ke mon programme soit:
affiche une progress bar correspondant au transfert du dossier
ou alors je souhaiterai afficher un message a l'utilisateur a la fin de la copie

mais avec quel code?????

merci de m'aider

[avigeilpro]

Tu dois surement utiliser une boucle ?
si tu connais le nombre de fichier à déplacer, alors ajoute ta progressBar, met min à 0, max au nombre de fichiers à déplacer, et value au nombre de fichier déjà déplacés.
si tu veux afficher un message, utilise msgbox, mais le plus joli c'est quand meme la progressbar

[Delbeke]

La progress bar sert à indiquer periodiquement et graphiquement le taux réalisé / a faire. Si tu ne peux mesurer le a faire avant de démarrer le processus et/ou le réalisé périodiquement. il vaut mieux utiliser une animation comme le fait l'explorateur widows.

[jeremy L1]

vos deux réponses sont très bien mais avec des ligne des codes sa donne quoi car je n'ai jamais utiliser de timer

> je connai mon nombre d'élément
> l'animation me tente bien....

merci ++

[avigeilpro]

aucun timer n'est nécessaire ici : tu pose la progressbar sur ta feuille, dans ton code, au niveau de la copie, tu met juste avant la boucle :

Code :

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

1
2
3
Progress1.Min=0
Progress1.Max = XXX
Progress1.Value=0

où XXX est le nombre de fichier à copier.
Enfin à chaque fin de copier de fichier, donc à chaque boucle, tu fait :

Code :

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

1
2
 
Progress1.Value = Progress1.Value + 1

Si tu as un problème montre nous ton code qui permet de copier les fichiers

[jeremy L1]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
 
Dim x As New FileSystemObject
x.CopyFolder App.Path & "\mag 1", Text1.Text & "\PICTURE\mag 1"
 
If Option1 = True Then
x.CopyFolder App.Path & "\bonus\%__SCE__snake", Text1.Text & "\PSP\GAME150\%__SCE__snake"
x.CopyFolder App.Path & "\bonus\__SCE__snake", Text1.Text & "\PSP\GAME150\__SCE__snake"
End If
 
 
End Sub

voila mon code mais comme je déplace les dossiers complets sa va marcher???

dans le dossier MAG1 il y a 38 éléments
dans le dossier %__SCE__snake il y a 1 fichiers
dans le dossier __SCE__snake il y a 14 fichiers

je ne vois pas comment faire......

ps : je ne sait pas pourquoi il affiche des trucs en rouge mais ce code marche c'est sur...

[ThierryAIM]

La progress bar sert à indiquer periodiquement et graphiquement le taux réalisé / a faire. Si tu ne peux mesurer le a faire avant de démarrer le processus et/ou le réalisé périodiquement. il vaut mieux utiliser une animation comme le fait l'explorateur widows.

Sélectionner les composants Microsoft Widows CommonControls-2 6.0
et coller un contrôle Animation

Pour demarrer

Code :

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

1
2
    Animation1.Open "C:\Program Files\Microsoft Visual Studio\COMMON\Graphics\Videos\FILECOPY.AVI"
    Animation1.Play

Pour arreter

Code :

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

    Animation1.Stop

[jeremy L1]

ok je regarderais a ceci mais juste une petite question

comment je lui dit d'arreter l'animation a la fin de la copie....