Ecrire sur FTP en envoyant les infos par paquet afin de pouvoir gérer une progress bar ??

Salut,

Via un logiciel, je recupere et ecris des fichiers sur un serveur FTP ...

En utilisant les API, j'arrive a gerer une progressbar lorsque je recupere les fichiers en utilisant FTPFindFirstFile puis InternetReadFile ...
J'aimerai faire la meme chose lorsque j'ecris sur le FTP
Je n'ai trouvé que l'API FTPPutFile, mais cette API ne permet pas d'envoyer le fichier en "paquets", il m'est donc impossible de gerer correctement ma progressbar !!

Qqn connait il une astuce ? d'autres APIS ?

Je joins qd meme un bout de mon code (que j'ai allégé, j'espere qu'il marchera tjs) pour ceux qui serait interessé sur la reception FTP, ou pour ceux qui ne voient pas trop de quoi je parle

Merci d'avance ...

' Variables Public Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type ' Fonction de lecture FTP avec progressbar Public Sub FTP_Read() Dim FTP_INFOS As WIN32_FIND_DATA Dim APrendre As Long Dim DejaPris As Long Dim Buffer As String * 1024 Dim BufferReturned As Long Dim lresult As Long Dim PartFile As String hOpen = InternetOpen("Accès au serveur FTP", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0) ' Première connection avec InternetConnect afin de recuperer la taille du fichier (en octets) et le stocker dans APrendre hConnection = InternetConnect(hOpen, "Serveur.FTP", INTERNET_DEFAULT_FTP_PORT, "Login", "PassWord", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0) FtpFindFirstFile hConnection, "Fichier que l'on souhaite lire", FTP_INFOS, 0, 0 APrendre = FTP_MOTUS_INFOS.nFileSizeLow ' 2eme connexion, mais avec InternetOpenURL cette fois ci hConnection = InternetOpenUrl(hOpen, "ftp://Login:PassWord@ServeurFTP/.../.../Fichier.txt", vbNullString, 0, INTERNET_FLAG_NO_CACHE_WRITE, 0) ' Ensuite, j'envoi le fichier par "paquets" de 1024 octets dans une boucle InternetReadFile Open "C:\TEST.TXT" For Binary As #1 Do lresult = InternetReadFile(hConnection, Buffer, 1024, BufferReturned) PartFile = Mid(Buffer, 1, BufferReturned) Put #1, , PartFile DejaPris = DejaPris + BufferReturned MainForm.ProgressBar.Value = (DejaPris * 100) / APrendre ' PBLabel est un champ Label situé au dessus de la progress bar et qui affiche ou en est le téléchargement MainForm.PBLabel = "Téléchargement en cours" & _ " (" & DejaPris & " / " & APrendre & " octets)" MainForm.PBLabel.Refresh Loop Until BufferReturned = 0 Close #1 ' Je ferme les connexions InternetCloseHandle hConnection InternetCloseHandle hOpen End Sub

Voila j'espere que ce code sera utile a certains et permettra a d'autre de m'aider a trouver une solution sur l'upload : )

A+, Nico.