1. Inet1.Execute , "size /" & fic_source 'demande la taille du fichier a telecharger
2.  
3. Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de inet
4. DoEvents
5. Loop
6.  
7. taille = Inet1.GetChunk(1024) 'recuperation de la taille dans taille

Dim taille As Variant 
Dim pourcent As Integer 
Dim fic_source, fic_destination As String 
 
 
fic_source = "c:\2.bmp" '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://81.249.XXX.XX" 'le ftp 
.username = "*****" 
.password = "*****" 
End With 
 
 
Inet1.Execute , "put " & fic_source & " /" & fic_destination 'envoie du 
fichier 
 
 
Inet2.URL = Inet1.URL 'initialise inet2 : mm url 
Inet2.username = Inet1.username 'initialise inet2 : mm username 
Inet2.password = Inet1.password 'initialise inet2 : mm password 
Inet2.protocol = Inet1.protocol 'initialise inet2 : mm protocol 
 
 
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