ERRO DOWNLOAD FTP

Public Sub UploadFTP(ByVal ftpHost As String, ByVal remoteFilePath As String, ByVal localFilePath As String, ByVal DistLoginFTP As String, ByVal DistSenhaFTP As String)

        Dim uri As New Uri(ftpHost & [Ô]/[Ô] & remoteFilePath)

        [ô] Cria o FtpWebRequest com o Uri que montamos
        Dim request As FtpWebRequest = DirectCast(FtpWebRequest.Create(uri), FtpWebRequest)
        request.Credentials = New NetworkCredential(DistLoginFTP, DistSenhaFTP)

        [ô] Por padrão a conexão é mantida depois do comando ser executado, aqui alteramos para a conexão ser fechada.
        request.KeepAlive = False

        [ô] Especifica o comando para ser executado.
        request.Method = WebRequestMethods.Ftp.UploadFile

        [ô] Utiliza conexão no modo passivo
        request.UsePassive = True

        [ô] Especifica o tipo de transferência de dados.
        request.UseBinary = True

        Try
            Dim fileStream As FileStream = File.OpenRead(localFilePath)
            Dim stream As Stream = request.GetRequestStream()

            [ô] Divide e envia o arquivo por partes.
            Dim Length As Integer = 2048
            Dim buffer As Byte() = New Byte(Length - 1) {}
            Dim bytesToSend As Integer = fileStream.Read(buffer, 0, Length)
            While bytesToSend > 0
                [ô] Envia uma parte do arquivo para o servidor
                stream.Write(buffer, 0, bytesToSend)
                [ô] Lê o arquivo e preenche o buffer
                bytesToSend = fileStream.Read(buffer, 0, Length)
            End While
            stream.Close()
            fileStream.Close()
        Catch ex As Exception
            [ô]MessageBox.Show(ex.Message, [Ô]Erro no UploadFTP[Ô])
        End Try
    End Sub