Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 867 fois - Téléchargée 42 fois
Dim sizetotal As String Dim sizedl As String Dim filelocal As String Dim fileserver As String Public Function Fichier_Existe(Path As String) As Boolean If Dir(Path) = "" Then Fichier_Existe = False Else Fichier_Existe = True End If End Function Private Sub Command1_Click() sizetotal = "81536858" ' Taille du fichier sur le ftp ( en octet ) ProgressBar1.Max = "100" ProgressBar1.min = "0" filelocal = "C:\FocomDemo.exe" 'Adresse du fichier sur le DD fileserver = "demos/pc/FocomDemo.exe" 'Adresse du fichier sur le FTP With Inet1 .URL = "ftp://ftp.lucasarts.com" .UserName = "anonymous" .Password = "anonymous" .Execute , "GET " & fileserver & " " & filelocal End With Do While Inet1.StillExecuting If Fichier_Existe(filelocal) = True Then sizedl = FileLen(filelocal) ProgressBar1.Value = (sizedl * ProgressBar1.Max) / sizetotal Else ProgressBar1.Value = "0" End If DoEvents Loop End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) Select Case State Case 1 etat.Caption = "Recherche l' IP de l'ordinateur hôte." Case 2 etat.Caption = "IP de l'ordinateur hôte spécifié." Case 3 etat.Caption = "En cours de connexion avec l'ordinateur hôte." Case 4 etat.Caption = "La connexion avec l'ordinateur hôte est réussie." Case 5 etat.Caption = "Envoie une demande à l'ordinateur hôte." Case 6 etat.Caption = "La demande a été envoyé avec succès." Case 7 etat.Caption = "Reçoit une réponse de l'ordinateur hôte." Case 8 etat.Caption = "Contacte avec l'ordinateur hôte réussi." Case 9 etat.Caption = "En cours de déconnexion avec l'ordinateur hôte." Case 10 etat.Caption = "La déconnexion avec l'ordinateur hôte est réussie." End Select If State = 11 Then MsgBox "Erreur" End If If State = 12 Then MsgBox "Transfert : OK" End If End Sub
@+ Sator
Public Function Taille(URL As String) As Long
Dim StrHeader
StrHeader = ""
Inet1.URL = URL
Inet1.Execute , "GET"
'Fait patienter le control Inet jusqu'a ce qu'il
'ait terminé ses taches
While Inet1.StillExecuting
DoEvents
Wend
'Cherche la taille
StrHeader = Inet1.GetHeader("Content-Length")
Taille = Val(StrHeader)
End Function
Download avec progressbar : http://www.vbfrance.com/article.aspx?Val=8628
Upload avec progressbar : http://www.vbfrance.com/article.aspx?Val=8629
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.