Salut,

Je suis en train de faire mon petit client ftp pour récuperer des fichiers .txt ou .zip.
J'ai un petit problème...
Après avoir récupérer les données en mode binaire, je les écrit dans un fichier.

Mon problème : les données sont corrompues !

Après vérification, les données ne sont pas identiques à celles d'origine. Je pense qu'il doit falloir remplacer un certain nombre de caractères ! Enfin, je sais pas trop d'ou le probleme provient...

Quelqu'un a t-il une idée ?

Merci de votre aide.

PS : Voici la procédure utilisée :

- ouverture d'un winsock
- requete sur sock 1 (user, pass, pasv)
- ouverture du sock 2
- requete sur sock 1 (type I(binaire), retr)
- reception sur sock 2

Dim fichier As Object   

Dim Donnee As Object

Donnee = ""

Wck2.GetData(Donnee)

fichier = fichier & Donnee

- ecriture de "fichier" dans un nouveau fichier

Try

'Instanciation du StreamWriter avec passage du nom du fichier

Dim monStreamWriter As StreamWriter = New StreamWriter(repertoire_donnees & fichier_serveur)

'Ecriture du texte dans votre fichier

monStreamWriter.Write(fichier)

'Fermeture du StreamWriter (Trés important)

monStreamWriter.Close()

'nettoyage de la variable fichier

fichier = " "

TBInfo.Text = TBInfo.Text & "Fichier " & fichier_serveur & " enregistré"

 

Catch ex As Exception

'Code exécuté en cas d'exception

TBInfo.Text = TBInfo.Text & "Erreur d'écriture du fichier"

End Try