ERRO DOWNLOAD FTP

Public Sub DownloadFTP(ByVal ftpPath As String, ByVal remoteFilePath As String, ByVal localFilePath As String, ByVal DistLoginFTP As String, ByVal DistSenhaFTP As String)

        Dim uri As New Uri(ftpPath & [Ô]/[Ô] & 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.DownloadFile

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

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

        Try
            Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)
            Dim responseStream As Stream = response.GetResponseStream()
            Dim fileStream As New FileStream(localFilePath, FileMode.Create)

            [ô] Divide e baixa o arquivo por partes.
            Dim Length As Integer = 2048
            Dim buffer As [Byte]() = New [Byte](Length - 1) {}
            Dim bytesToSave As Integer = responseStream.Read(buffer, 0, Length)
            While bytesToSave > 0
                [ô] Transfere o conteúdo do buffer para o arquivo
                fileStream.Write(buffer, 0, bytesToSave)
                [ô] Baixa uma parte do arquivo e carrega o buffer
                bytesToSave = responseStream.Read(buffer, 0, Length)
            End While
            fileStream.Close()
            response.Close()
        Catch ex As Exception
            [ô]MessageBox.Show(ex.Message, [Ô]Erro no DownloadFTP[Ô])
        End Try
    End Sub


    Public Function DownloadTotalFTP(ByVal ftpPath As String, ByVal localFilePath As String, ByVal DistLoginFTP As String, ByVal DistSenhaFTP As String) As Boolean

        Try
            Dim myFtp As New FTPclient([Ô]????[Ô], [Ô]????[Ô], [Ô]????[Ô])
            For Each file As FTPfileInfo In myFtp.ListDirectoryDetail([Ô]/Ret[Ô]).GetFiles
                [ô]myFtp.Download(file, [Ô]C:\[Ô] & file.Filename)
                DownloadFTP([Ô]????[Ô], file.Filename, localFilePath & file.Filename, [Ô]????[Ô], [Ô]????[Ô])
            Next file
            DownloadTotalFTP = True
        Catch e As Exception
            DownloadTotalFTP = False
        End Try
    End Function