Bonjour,

Ça fait deux heures que j'essaie différents trucs trouvés sur Google, mais toujours impossible d'envoyer un simple petit fichier sur les pages perso de Free

Voici le code, avec la ligne problématique...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
Try
  Const MYFILE="myfile.txt"
 
  Dim URL As String = String.Format("/{0}/{1}", "monrep", MYFILE)
  Dim FtpFullFileName As String = "ftp://ftpperso.free.fr" & URL
 
  Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(FtpFullFileName), System.Net.FtpWebRequest)
  clsRequest.Credentials = New System.Net.NetworkCredential("monlogin","monmdp")
  clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
  clsRequest.Proxy = Nothing
  clsRequest.UseBinary = True
  clsRequest.KeepAlive = False
  clsRequest.UsePassive = True
 
  Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\" & MYFILE)
 
  'ERREUR ICI
  Dim clsStream As Stream = clsRequest.GetRequestStream()
 
  clsStream.Write(bFile, 0, bFile.Length)
  clsStream.Close()
  clsStream.Dispose()
Catch ex As Exception
  MessageBox.Show(ex.ToString)
End Try
... et voici le message d'erreur:
System.Net.WebException: The underlying connection was closed: The server committed a protocol violation.
at System.Net.FtpWebRequest.SyncRequestCallback(Object obj)
at System.Net.FtpWebRequest.RequestCallback(Object obj)
at System.Net.CommandStream.InvokeRequestCallback(Object obj)
at System.Net.CommandStream.Abort(Exception e)
at System.Net.FtpWebRequest.FinishRequestStage(RequestStage stage)
at System.Net.FtpWebRequest.GetRequestStream()
at WindowsApplication1.Form1.Form1_Object sender, EventArgs e) in C:\Project1\WindowsApplication1\Form1.vb:line 330
Si quelqu'un utilise une appli VB.Net pour envoyer un fichier sur ftpperso.free.fr, je suis intéressé par toute piste.

Merci.