Marko007
Messages postés96Date d'inscriptionmardi 15 mai 2007StatutMembreDernière intervention29 janvier 2009
-
1 oct. 2008 à 15:31
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 2018
-
1 oct. 2008 à 17:01
Bonjour, j'essaie de copie une fichier via une connexion FTP à un serveur FTP, en voici le code :
Dim ClientFTP As FtpWebRequest = CType(FtpWebRequest.Create(FTPHost & FTPFile), FtpWebRequest)
Dim fs_to As New FileStream(StrFileSelected, FileMode.Open)
Dim response As WebResponse = ClientFTP.GetResponse
Dim response_stream As Stream = response.GetResponseStream
Dim buffer(1024) As Byte
Dim total_bytes As Long = 0
Dim bytes_read As Integer = response_stream.Read(buffer, 0, buffer.Length)
While bytes_read > 0
total_bytes += bytes_read
fs_to.Write(buffer, 0, bytes_read)
bytes_read = response_stream.Read(buffer, 0, 1024)
End While
fs_to.Close()
response_stream.Close()
J'ai un message d'erreur suivant : Le serveur distant a retourné une erreur : (502) commande non implémentée... Or via un client FTP, j'arrive à copier le fichier.
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 201822 1 oct. 2008 à 17:01
Oie oie ,
Ton erreur est normal:
1) il faut lui indiquer à ton serveur ftp la taille des données qu'il va recevoir.
2) tu dois signaler à ton serveur que tu lui envois quelque chose, donc envoit lui la bonne commande :)
3) euh ras...
Regarde le second lien donné par Gillardg cela va t'aider.