Download ftp inet avec progressbar

Commenter

Contenu du snippet

Voila un petit code sympa qui permet de telecharger un fichier sur un ftp avec une barre de progression et le pourcentage.

il faut :
Une progressbar nomé : pb
un label1 : label1
un controle inet : inet1

Source / Exemple : 


Private Sub Command1_Click()

Dim taille, pourcent As Integer
Dim fic_source, fic_destination As String

fic_source = "fichier" 'fichier a telecharger
fic_destination = "c:\fichier" 'fichier de destination

With Inet1
.Protocol = icFTP 'declaration protocole
.URL = "ftp://user:pass@serverftp" 'le ftp
End With
Inet1.Execute , "size /" & fic_source 'demande la taille du fichier a telecharger

Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de inet
DoEvents
Loop

taille = Inet1.GetChunk(1024) 'recuperation de la taille dans taille

pb.Value = 0 'definition de la valeur minimum
pb.Max = taille 'definition de la valeur maximum

'telechargement du fichier
Inet1.Execute , "get " & fic_source & " " & fic_destination

Do Until Inet1.StillExecuting = True 'boucle pendant le traitement de inet
On Error Resume Next
DoEvents
pb.Value = FileLen(fic_destination) 'mise a jour de la valeur de la progressbar PB
pourcent = (pb.Value / taille) * 100 'calcul du pourcentage reçu
Label1.Caption = pourcent & "%" 'affichage du % du telechargement
Loop
End Sub

Conclusion :


J avais trouver un code sur ce site mais il fallait donner la taille du fichier du ftp, je me suis donc m'y et utiliser la commande size de inet!!!!
Enfin c pas super complex mais ca peu servir????

A voir également

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 (pcpunch)