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!!
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.