Upload ftp inet avec progressbar

Commenter

Contenu du snippet

j ai pas trouver de source qui explique comment uploader un fichier avec inet sur un ftp avec une barre de progression alors voila....

il faut
un bouton de commad : command1
2 controle inet : inet1, inet2
une progressbar : pb
un label : label1

Source / Exemple : 


Private Sub Command1_Click()
Dim taille As Variant
Dim pourcent As Integer
Dim fic_source, fic_destination As String

fic_source = "c:\fichier" 'fichier a uploader"
fic_destination = "fichier" 'fichier de destination"
pb.Min = 0
pb.Max = FileLen(fic_source)
With Inet1
.Protocol = icFTP 'declaration protocole
.URL = "ftp://user:pass@Ftp" 'le ftp
End With

Inet1.Execute , "put " & fic_source & " /" & fic_destination 'envoie du fichier

Inet2.URL = Inet1.URL 'initialise inet2 : mm url

Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de inet1
On Error Resume Next
    If Inet2.StillExecuting = False Then 'si inet2 n'est pas actif
        
        Inet2.Execute , "size /" & fic_destination 'demande la taille du fichier sur le ftp
        Do Until Inet2.StillExecuting = False 'boucle pendant le demande inet2
        DoEvents
        Loop
            
        taille = Inet2.GetChunk(1024) 'recuperation du size dans taille
        Do Until Inet2.StillExecuting = False 'boucle pendant le demande inet2
        DoEvents
        Loop
       
       'affichage de la progressbar
       
       pb.Value = taille 'affichage de l'avancement de pb
       pourcent = (pb.Value / pb.Max) * 100 'calcul du pourcentage reçu
       Label1.Caption = pourcent & "%" 'affichage du % du telechargement
       
    End If
Loop 
end sub

Conclusion :


voila j espere que ca va servir!!! donner moi vos commentaire!!!
PS: la progression se voit mieux avec des fichier qui ne sont pas de petite taille!!! n'oubliez pas de noter la source!!

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)