File Transfer with FTP in Asp.Net

Create Page Default.aspx.vb
Write Method 
    Public Sub FTPFileTransfer()
        Dim objFtp As New FTP.FtpClass()
        Dim filePath As String = Server.MapPath("download/test.txt")
        objFtp.FtpUrl = "ftp://www.yoursite.com/FolderName"
        objFtp.Ftppassword = "Ftppassword"
        objFtp.Ftpusername = "Ftpusername"
        If objFtp.UploadFileToFTP(filePath) Then
            lblMessage.Text = "File has been uploaded on the server <br/> Check the uploaded file on http://yoursite.com/" & Path.GetFileName(filePath)
        Else
            Console.Write(objFtp.FtpException.Message)
        End If
    End Sub

Create Class FtpClass 
Write Method 


Imports System.Reflection
Imports System.Data
Imports System.IO
Imports System.Net
Imports System.Text

Public Class FtpClass 
    Public Property FtpUrl() As String
        Get
            Return m_FtpUrl
        End Get
        Set(value As String)
            m_FtpUrl = value
        End Set
    End Property
    Private m_FtpUrl As String
    Public Property Ftpusername() As String
        Get
            Return m_Ftpusername
        End Get
        Set(value As String)
            m_Ftpusername = value
        End Set
    End Property
    Private m_Ftpusername As String
    Public Property Ftppassword() As String
        Get
            Return m_Ftppassword
        End Get
        Set(value As String)
            m_Ftppassword = value
        End Set
    End Property
    Private m_Ftppassword As String
    Public Property FtpException() As Exception
        Get
            Return m_FtpException
        End Get
        Set(value As Exception)
            m_FtpException = value
        End Set
    End Property
    Private m_FtpException As Exception

    Public Function UploadFileToFTP(source As String) As Boolean
        Try

            Dim filename As String = Path.GetFileName(source)
            Dim ftpfullpath As String = FtpUrl
            ' +"/aceafrica";
            Dim ftp As FtpWebRequest = DirectCast(FtpWebRequest.Create(ftpfullpath & "/" & filename), FtpWebRequest)
            ftp.Credentials = New NetworkCredential(Ftpusername, Ftppassword)

            ftp.KeepAlive = True
            ftp.UseBinary = True
            ftp.Method = WebRequestMethods.Ftp.UploadFile

            Dim fs As FileStream = File.OpenRead(source)
            Dim buffer As Byte() = New Byte(fs.Length - 1) {}
            fs.Read(buffer, 0, buffer.Length)
            fs.Close()

            Dim ftpstream As Stream = ftp.GetRequestStream()
            ftpstream.Write(buffer, 0, buffer.Length)
            ftpstream.Close()
            Return True
        Catch ex As Exception
            FtpException = ex
            Return False
        End Try
    End Function

    Public Function GetFileList(Directory As String) As Boolean
        ' Public Function GetFileList(Directory As String) As List(Of String)
        Dim Files As New List(Of String)()
        Dim filename As String = Path.GetFileName(Directory)
        Dim ftpfullpath As String = FtpUrl
        Dim request As FtpWebRequest = DirectCast(WebRequest.Create(New Uri(ftpfullpath & "/" & filename)), FtpWebRequest)
        request.Method = WebRequestMethods.Ftp.ListDirectory

        request.Credentials = New NetworkCredential(Ftpusername, Ftppassword)
        ' Is this correct?
        ' request.Credentials = new NetworkCredential(ServerInfo.Username, ServerInfo.Password); // Or may be this one?
        request.UseBinary = False
        request.UsePassive = True

        Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse)

        Dim responseStream As Stream = response.GetResponseStream()
        Dim reader As New StreamReader(responseStream)
        Dim CurrentLine As String = reader.ReadLine()
        While Not String.IsNullOrEmpty(CurrentLine)
            Files.Add(CurrentLine)
            CurrentLine = reader.ReadLine()
        End While
        reader.Close()
        response.Close()
        Return True
    End Function
End Class