progressbar

Question

sur mon appli, je doit monipuler des dossier(copier; coller) et jusque la pas de PB. mais j'aimerai voir la progression de ma copie avec une progress bar et je n'y arrive pas.
pour copier mon fichier, j'utilise un objet filesystemobject et avec cet objet je ne peu pas recuperer la valeur de l'avancement de ma copie.
comment puis je faire
merci 
ps: faite vite j'ai bientot plus de cheuveux a force de me les arracher  :big)

ShareVB · Answer

salut

il existe l'api MoveFileWithProgress (uniquement à partir de 2000 ou XP je crois) et CopyFileEx pour tous les windows :

regarde ma source :
http://www.vbfrance.com/code.aspx?ID=8159

voilà

ShareVB

cs_legion91 · Answer

Ben c simple moi je ferai com sa:
'declaration
Dim file_origine as string
dim file_final as string
'bouton
sub Command1_click

progressbar1.max = filelen(file_origine)
progressbar1.value= 1
timer1.enabled =true
filecopy(file_origine,file_final )
timer1.enabled =false
end sub
'timer
sub timer1__Timer
progressbar1.value = filelen(file_final)
end sub

C'est simple et plus ou moin rapide a mettre en place ;-)

ShareVB · Answer

salut

désolé de te contredire legion91 mais ca ne marche pas et ca ne risque pas de marcher dans la mesure où la taille du fichier est mise à jour uniquement après la copie (au moins sous XP). De plus, filecopy est synchrone = blocage du programme...

voilà

ShareVB

Progressbar

3 réponses

Discussions similaires