Accueil > > > DOWNLOAD FTP INET AVEC PROGRESSBAR
 DOWNLOAD FTP INET AVEC PROGRESSBAR
 Information sur la source
 Description
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
- 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
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????
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|