Salut,

J'ai un probleme avec les fonctions ftp. J'ai fait un petit client ftp pour aller recupérer un fichier en ftp.
Pour l'instant, j'ai fait mes commandes ftp :

1er winsock :
- open
- USER
- PASS
- PASV

2eme winsock :
- open

1er winsock :
- CWD
- RETR

--> la réponse, 226 : transfer ok !

Mon probleme : comment recuperer mon fichier ? Où est-il ? J'ai essayé de le mettre dans une variable objet dans les dataarrivals du 2eme socket. Et apres d'ecrire dans un fichier texte. Mais ca ne marche pas.

Je vous met une partie du code si ca peut vous aider.

Merci d'avance. 

--reception du winsock 2 (fichier est declare en global dans mon formulaire)

Private Sub Wck2_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Wck2.DataArrival

Dim Donnee As Object

Wck2.GetData(Donnee)

fichier = fichier & Donnee

End Sub

--ecriture de mon fichier sur la reception du code 226 de la premiere winsock

Sub ecritureFichier(ByVal fichier As String)

Try

'Instanciation du StreamWriter avec passage du nom du fichier

Dim monStreamWriter As StreamWriter = New StreamWriter("D:\Incoming\ici.txt")

'Ecriture du texte dans votre fichier

monStreamWriter.Write(fichier)

'Fermeture du StreamWriter (Trés important)

monStreamWriter.Close()

Catch ex As Exception

'Code exécuté en cas d'exception

MsgBox("Erreur d'écriture du fichier")

End Try

End Sub


(Ce message est déposé dans la section "j'ai un problème". Mais je pense qu'il vaut mieu qu'il soit ici...)