Soyez le premier à donner votre avis sur cette source.
Snippet vu 12 878 fois - Téléchargée 37 fois
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
7 mars 2010 à 11:56
Je fait remonter ce sujet car j'ai un petit probleme avec ton code, j'utilise un serveur free et je n'arrive pas à envoyer de fichier, il me met toujour une erreur ici :
Inet1.Execute , "put " & fic_source & "/" & fic_destination
Normalement ça devrait marcher mais je n'y arrive jamais (avec aucun des codes de ce site)
Sinon les info des fichiers sont faites comme ça :
fic_source = "C:\Documents and Settings\Administrateur\Bureau\bippeur\test.txt"
fic_destination = "test.txt"
Mon URL est bonne.
Merci de votre aide
Adam
17 juil. 2007 à 17:11
Merci d'avance pour votre aide
6 mai 2007 à 14:25
Merci pour cette source je men suis fortement inspiré.
Apres avoir rajouter un thread j'aimerais maintenant obtenir une progress bar
Comment fait on pour "piocher le fichier régulierement" comme cela est indiqué dans le dernier post.
Merci
4 oct. 2006 à 13:35
4 oct. 2006 à 11:09
Je voulais réutiliser ce code afin d'avoir une progress bar lors de mes transferts ms celle ci ne fonctionne pas j'ai l'impression qu'elle reste coincer dans une boucle (je pense qu'il s'agit de la boucle pour le transfert du fichier) puis a la fin il passe a la suivante ainsi, il me met la progress bar a 100 % et le label a 100 % mais seulement a la fin du fichier!
Savez vous d'ou provient l'erreur ?
Merci
Johnson
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.