[VB.NET] Envoyer/Gérer des fichiers via FTP

    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