Je cherche à envoyer des fichiers ou bien tout simplement me connecter à un FTP, mais aucunes des fonctions ou de ce que j'ai pu trouver sur internet ne fonctionne. Quelqu'un aurait une idée ?
P-S : Ce n'est pas le FTP qui a un problème, tout marche très bien avec FileZilla.
Public Shared Function FtpUpload(ByVal adresse_ftp As String, ByVal username As String, ByVal password As String, ByVal pathFile As String) As Boolean
Dim uri As Uri = New Uri(adresse_ftp)
Dim credentials As NetworkCredential = New NetworkCredential(username, password)
Dim fileInfo As FileInfo = New FileInfo(pathFile)
Dim request As FtpWebRequest = DirectCast(FtpWebRequest.Create(Path.Combine(uri.AbsoluteUri, fileInfo.Name)), FtpWebRequest)
request.Method = WebRequestMethods.Ftp.UploadFile
request.Credentials = credentials
request.UseBinary = True
request.KeepAlive = False
request.UsePassive = True
Dim buffer As Byte() = New Byte(2047) {}
Try
Using stream As Stream = request.GetRequestStream()
Using fs As FileStream = File.OpenRead(fileInfo.FullName)
Dim block As Integer
While ((block = fs.Read(buffer, 0, buffer.Length)) > 0)
stream.Write(buffer, 0, block)
End While
End Using
End Using
Return True
Catch ex As Exception
MsgBox("Erreur")
Return False
End Try
End Function