Contrôler le BUFFER lors d'un transfer de fichier

Question

Question:

J'ai une application VB6 pour transférer des fichier sur FTP (ocx INET) et j'aimerais contrôler mon BUFFER durant le transfer des fichiers, cela pour actualiser un PROGRESSBAR plus réellement.

Je sais qu'il existe différentes méthodes (p.ex. ReadEventLog) mais je ne sais pas comment faire ???

Quelqu'un aurait une source ou un exemple pour me débloquer, ce serait super !

Merci d'avance

pcpunch · Answer

Voici un exemple de code :


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 


Source : telechargement de fichier avec progressbar (inet)

Contrôler le BUFFER lors d'un transfer de fichier

1 réponse

Discussions similaires