VB.Net Tutorial/Socket Network/FTP Client

Ftp Client in VB.net

Imports System.Net
Imports System.IO
Imports System.Net.Sockets
Imports System.Text
Imports System.Windows.Forms
public class FtpClientVB
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class
Public Class ftpCreate
    Private ftpTcpClient As TcpClient
    Public ResponseStream As NetworkStream
    Public ReturnNameMessage As String
    Public ReturnPwdMessage As String
    Public Sub ftpLogin(ByVal strName As String, ByVal strPWD As String, ByVal strftpLogin As String)
        Try
            Dim strCommand As String
            Dim strReturnMessage As String
            Dim bteSendBytes() As Byte
            Dim bteRetruenBytes() As Byte
            Dim intReturnByteLength As Integer
            Dim ftpTcpClient As TcpClient = New TcpClient(strftpLogin, 21)
            ResponseStream = ftpTcpClient.GetStream
            strCommand = "USER " + strName + vbCrLf
            bteSendBytes = Encoding.ASCII.GetBytes(strCommand)
            ResponseStream.Write(bteSendBytes, 0, bteSendBytes.Length)
            intReturnByteLength = ftpTcpClient.ReceiveBufferSize
            ReDim bteRetruenBytes(intReturnByteLength)
            ResponseStream.Read(bteRetruenBytes, 0, intReturnByteLength)
            strReturnMessage = Encoding.ASCII.GetString(bteRetruenBytes) + "/ "
            ReturnNameMessage = strCommand + strReturnMessage
            strCommand = "PASS " + strPWD + vbCrLf
            Array.Clear(bteSendBytes, 0, bteSendBytes.Length)
            bteSendBytes = Encoding.ASCII.GetBytes(strCommand)
            ResponseStream.Write(bteSendBytes, 0, bteSendBytes.Length)
            intReturnByteLength = ftpTcpClient.ReceiveBufferSize
            ReDim bteRetruenBytes(intReturnByteLength)
            ResponseStream.Read(bteRetruenBytes, 0, intReturnByteLength)
            strReturnMessage = Encoding.ASCII.GetString(bteRetruenBytes) + "/ "
            ReturnPwdMessage = strCommand + strReturnMessage + vbCrLf
        Catch ex As SocketException
            ReturnPwdMessage = ex.Message
        End Try
    End Sub
End Class
Public Class ftpClient
    Dim ReturnNameMessage
    Dim ReturnPwdMessage
    Dim myftpCreate As ftpCreate
    Public Sub LogInFTP(ByVal strName As String, ByVal strPWD As String, ByVal strftpLogin As String)
        myftpCreate = New ftpCreate()
        myftpCreate.ftpLogin(strName, strPWD, strftpLogin)
        ReturnNameMessage = myftpCreate.ReturnNameMessage
        ReturnPwdMessage = myftpCreate.ReturnPwdMessage
    End Sub
    Public ReadOnly Property GetReturnNameMessage() As String
        Get
            Return ReturnNameMessage
        End Get
    End Property
    Public ReadOnly Property GetReturnPwdMessage() As String
        Get
            Return ReturnPwdMessage
        End Get
    End Property
    Public Sub FTPUpLoad(ByVal strFilePath As String, ByVal strFtpPath As String, ByRef pstrReturnMessage As String)
        Dim UPFile As New FileStream(strFilePath, FileMode.Open)
        Dim bytUPFile() As Byte
        Dim lngFileLength As Long
        Dim ftpStream As NetworkStream = myftpCreate.ResponseStream
        Dim returnMessage As String
        Dim UpLoadStream As NetworkStream
        Try
            lngFileLength = UPFile.Length
            ReDim bytUPFile(lngFileLength)
            UPFile.Read(bytUPFile, 0, lngFileLength)
            FTPCommands(ftpStream, "PASV", returnMessage)
            UpLoadStream = GetConnectTcpClient(returnMessage)
            FTPCommands(ftpStream, "TYPE I", returnMessage)
            FTPCommands(ftpStream, "STOR " + strFtpPath, returnMessage)
            pstrReturnMessage += returnMessage.TrimEnd
            UpLoadStream.Write(bytUPFile, 0, lngFileLength)
            UpLoadStream.Close()
            UPFile.Close()
        Catch ex As Exception
            pstrReturnMessage = ex.Message
        End Try
    End Sub
    Public Sub FTPDownLoad(ByVal strFilePath As String, ByVal strFtpPath As String, ByRef pstrReturnMessage As String)
        Dim UPFile As New FileStream(strFtpPath, FileMode.Create)
        Dim bytUPFile() As Byte
        Dim lngFileLength As Long
        Dim ftpStream As NetworkStream = myftpCreate.ResponseStream
        Dim returnMessage As String
        FTPCommands(ftpStream, "PASV", returnMessage)
        Dim DownloadStream As NetworkStream
        DownloadStream = GetConnectTcpClient(returnMessage)
        FTPCommands(ftpStream, "TYPE I", returnMessage)
        FTPCommands(ftpStream, "RETR " + strFilePath, returnMessage)
        pstrReturnMessage += returnMessage
        ReDim bytUPFile(1024)
        Do
            lngFileLength = DownloadStream.Read(bytUPFile, 0, 1024)
            UPFile.Write(bytUPFile, 0, lngFileLength)
        Loop While lngFileLength > 0
        UPFile.Close()
        DownloadStream.Close()
    End Sub
    Private Function FTPCommands(ByVal ftpStream As NetworkStream, ByVal strCommand As String, ByRef strMessage As String) As Integer
        Dim bteCommand() As Byte
        bteCommand = Encoding.ASCII.GetBytes(strCommand + vbCrLf)
        ftpStream.Write(bteCommand, 0, bteCommand.Length)
        Dim b(360000) As Byte
        ftpStream.Read(b, 0, 360000)
        strMessage = Encoding.ASCII.GetString(b)
    End Function
    Private Function GetConnectTcpClient(ByVal respMessage As String) As NetworkStream
        Dim i As Integer
        Dim strIP As String
        Dim strIPs() As String
        Dim strAddress As String
        Dim intPort As Integer
        Try
            strIP = respMessage.Substring(respMessage.IndexOf("(")).Replace("(", "")
            strIPs = strIP.Split(",")
            strIP = ""
            For i = 0 To 3
                strIP += strIPs(i) + "."
            Next
            strAddress = strIP.Substring(0, strIP.Length - 1)
            intPort = Integer.Parse(strIPs(4)) * 256 + _
                      Integer.Parse(strIPs(5).Substring(0, strIPs(5).IndexOf(")")))
            Dim dataClient As New TcpClient()
            Dim cIPEP As New IPEndPoint(IPAddress.Parse(strAddress), intPort)
            dataClient.Connect(cIPEP)
            Return dataClient.GetStream
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Function
    Public Function CreateDir(ByVal strDirPath As String) As String
        Dim ftpStream As NetworkStream = myftpCreate.ResponseStream
        Dim returnMessage As String
        FTPCommands(ftpStream, "MKD " + strDirPath, returnMessage)
        returnMessage = "Creating Dir" + vbCrLf + returnMessage
        Return returnMessage
        ftpStream.Close()
    End Function
    Public Function DeleteDir(ByVal strDirPath As String) As String
        Dim ftpStream As NetworkStream = myftpCreate.ResponseStream
        Dim returnMessage As String
        FTPCommands(ftpStream, "RMD " + strDirPath, returnMessage)
        returnMessage = "Delete Dir" + vbCrLf + returnMessage
        Return returnMessage
        ftpStream.Close()
    End Function
    Public Function PrintDir() As String
        Dim ftpStream As NetworkStream = myftpCreate.ResponseStream
        Dim returnMessage As String
        FTPCommands(ftpStream, "PWD ", returnMessage)
        returnMessage = returnMessage
        Return returnMessage
        ftpStream.Close()
    End Function
    Public Function ChangeDir(ByVal strDirPath As String) As String
        Dim ftpStream As NetworkStream = myftpCreate.ResponseStream
        Dim returnMessage As String
        FTPCommands(ftpStream, "CWD " + strDirPath, returnMessage)
        returnMessage = returnMessage
        Return returnMessage
        ftpStream.Close()
    End Function
    Public Function DeleteFile(ByVal strFile As String) As String
        Dim ftpStream As NetworkStream = myftpCreate.ResponseStream
        Dim returnMessage As String
        FTPCommands(ftpStream, "DELE " + strFile, returnMessage)
        returnMessage = returnMessage
        Return returnMessage
        ftpStream.Close()
    End Function
    Public Function QuitFTP(ByVal strFile As String) As String
        Dim ftpStream As NetworkStream = myftpCreate.ResponseStream
        Dim returnMessage As String
        FTPCommands(ftpStream, "QUIT", returnMessage)
        returnMessage = returnMessage
        Return returnMessage
        ftpStream.Close()
    End Function
End Class


Public Class Form1
    Inherits System.Windows.Forms.Form
    Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub
    Private components As System.ruponentModel.IContainer
    Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
    Friend WithEvents loginPage As System.Windows.Forms.TabPage
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents txtPassword As System.Windows.Forms.TextBox
    Friend WithEvents txtName As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents ftpLoign As System.Windows.Forms.TextBox
    Friend WithEvents btnLogin As System.Windows.Forms.Button
    Friend WithEvents DownloadPage As System.Windows.Forms.TabPage
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txtMessage As System.Windows.Forms.TextBox
    Friend WithEvents btnFTPUpLoad As System.Windows.Forms.Button
    Friend WithEvents UploadPage As System.Windows.Forms.TabPage
    Friend WithEvents txtFilePath As System.Windows.Forms.TextBox
    Friend WithEvents btnFTPDownLoad As System.Windows.Forms.Button
    Friend WithEvents txtFTPDownLoadPath As System.Windows.Forms.TextBox
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents doFilePath As System.Windows.Forms.TextBox
    Friend WithEvents txtDestFile As System.Windows.Forms.TextBox
    Friend WithEvents Label8 As System.Windows.Forms.Label
    Friend WithEvents Label9 As System.Windows.Forms.Label
    Friend WithEvents btnDelete As System.Windows.Forms.Button
    Friend WithEvents Dir As System.Windows.Forms.TabPage
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents Button1 As System.Windows.Forms.Button
    Friend WithEvents Button2 As System.Windows.Forms.Button
    Friend WithEvents Button3 As System.Windows.Forms.Button
    Friend WithEvents txtDir As System.Windows.Forms.TextBox
    Friend WithEvents btnChange As System.Windows.Forms.Button
    Friend WithEvents btnQuit As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.TabControl1 = New System.Windows.Forms.TabControl()
        Me.loginPage = New System.Windows.Forms.TabPage()
        Me.btnQuit = New System.Windows.Forms.Button()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.txtPassword = New System.Windows.Forms.TextBox()
        Me.txtName = New System.Windows.Forms.TextBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.ftpLoign = New System.Windows.Forms.TextBox()
        Me.btnLogin = New System.Windows.Forms.Button()
        Me.UploadPage = New System.Windows.Forms.TabPage()
        Me.Label9 = New System.Windows.Forms.Label()
        Me.Label5 = New System.Windows.Forms.Label()
        Me.txtDestFile = New System.Windows.Forms.TextBox()
        Me.txtFilePath = New System.Windows.Forms.TextBox()
        Me.btnFTPUpLoad = New System.Windows.Forms.Button()
        Me.DownloadPage = New System.Windows.Forms.TabPage()
        Me.btnDelete = New System.Windows.Forms.Button()
        Me.Label8 = New System.Windows.Forms.Label()
        Me.doFilePath = New System.Windows.Forms.TextBox()
        Me.Label7 = New System.Windows.Forms.Label()
        Me.txtFTPDownLoadPath = New System.Windows.Forms.TextBox()
        Me.btnFTPDownLoad = New System.Windows.Forms.Button()
        Me.Dir = New System.Windows.Forms.TabPage()
        Me.btnChange = New System.Windows.Forms.Button()
        Me.Button3 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
        Me.Label6 = New System.Windows.Forms.Label()
        Me.txtDir = New System.Windows.Forms.TextBox()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Label4 = New System.Windows.Forms.Label()
        Me.txtMessage = New System.Windows.Forms.TextBox()
        Me.TabControl1.SuspendLayout()
        Me.loginPage.SuspendLayout()
        Me.UploadPage.SuspendLayout()
        Me.DownloadPage.SuspendLayout()
        Me.Dir.SuspendLayout()
        Me.SuspendLayout()
        "
        "TabControl1
        "
        Me.TabControl1.Controls.AddRange(New System.Windows.Forms.Control() {Me.loginPage, Me.DownloadPage, Me.UploadPage, Me.Dir})
        Me.TabControl1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.TabControl1.Location = New System.Drawing.Point(31, 6)
        Me.TabControl1.Name = "TabControl1"
        Me.TabControl1.SelectedIndex = 0
        Me.TabControl1.Size = New System.Drawing.Size(655, 122)
        Me.TabControl1.TabIndex = 12
        "
        "loginPage
        "
        Me.loginPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnQuit, Me.Label3, Me.Label2, Me.txtPassword, Me.txtName, Me.Label1, Me.ftpLoign, Me.btnLogin})
        Me.loginPage.Location = New System.Drawing.Point(4, 25)
        Me.loginPage.Name = "loginPage"
        Me.loginPage.Size = New System.Drawing.Size(647, 93)
        Me.loginPage.TabIndex = 0
        Me.loginPage.Text = "Login"
        "
        "btnQuit
        "
        Me.btnQuit.Location = New System.Drawing.Point(461, 8)
        Me.btnQuit.Name = "btnQuit"
        Me.btnQuit.Size = New System.Drawing.Size(112, 24)
        Me.btnQuit.TabIndex = 14
        Me.btnQuit.Tag = "3"
        Me.btnQuit.Text = "Quit"
        "
        "Label3
        "
        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.Label3.Location = New System.Drawing.Point(20, 40)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(93, 16)
        Me.Label3.TabIndex = 13
        Me.Label3.Text = "Password"
        "
        "Label2
        "
        Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.Label2.Location = New System.Drawing.Point(20, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(93, 16)
        Me.Label2.TabIndex = 12
        Me.Label2.Text = "Account"
        "
        "txtPassword
        "
        Me.txtPassword.Location = New System.Drawing.Point(123, 32)
        Me.txtPassword.Name = "txtPassword"
        Me.txtPassword.PasswordChar = Microsoft.VisualBasic.ChrW(42)
        Me.txtPassword.Size = New System.Drawing.Size(205, 22)
        Me.txtPassword.TabIndex = 11
        Me.txtPassword.Tag = "1"
        Me.txtPassword.Text = "1"
        "
        "txtName
        "
        Me.txtName.Location = New System.Drawing.Point(123, 8)
        Me.txtName.Name = "txtName"
        Me.txtName.Size = New System.Drawing.Size(205, 22)
        Me.txtName.TabIndex = 10
        Me.txtName.Tag = "0"
        Me.txtName.Text = "Administrator"
        "
        "Label1
        "
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.Label1.Location = New System.Drawing.Point(10, 64)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(92, 16)
        Me.Label1.TabIndex = 9
        Me.Label1.Text = "FTP Server"
        "
        "ftpLoign
        "
        Me.ftpLoign.Location = New System.Drawing.Point(123, 64)
        Me.ftpLoign.Name = "ftpLoign"
        Me.ftpLoign.Size = New System.Drawing.Size(502, 22)
        Me.ftpLoign.TabIndex = 8
        Me.ftpLoign.Tag = "2"
        Me.ftpLoign.Text = "192.168.1.100"
        "
        "btnLogin
        "
        Me.btnLogin.Location = New System.Drawing.Point(338, 8)
        Me.btnLogin.Name = "btnLogin"
        Me.btnLogin.Size = New System.Drawing.Size(113, 24)
        Me.btnLogin.TabIndex = 7
        Me.btnLogin.Tag = "3"
        Me.btnLogin.Text = "Login FTP"
        "
        "UploadPage
        "
        Me.UploadPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.Label9, Me.Label5, Me.txtDestFile, Me.txtFilePath, Me.btnFTPUpLoad})
        Me.UploadPage.Location = New System.Drawing.Point(4, 25)
        Me.UploadPage.Name = "UploadPage"
        Me.UploadPage.Size = New System.Drawing.Size(647, 93)
        Me.UploadPage.TabIndex = 1
        Me.UploadPage.Text = "Upload"
        Me.UploadPage.Visible = False
        "
        "Label9
        "
        Me.Label9.Location = New System.Drawing.Point(13, 62)
        Me.Label9.Name = "Label9"
        Me.Label9.Size = New System.Drawing.Size(82, 16)
        Me.Label9.TabIndex = 9
        Me.Label9.Text = "FTP File"
        "
        "Label5
        "
        Me.Label5.Location = New System.Drawing.Point(10, 29)
        Me.Label5.Name = "Label5"
        Me.Label5.Size = New System.Drawing.Size(82, 16)
        Me.Label5.TabIndex = 4
        Me.Label5.Text = "Upload"
        "
        "txtDestFile
        "
        Me.txtDestFile.Location = New System.Drawing.Point(102, 56)
        Me.txtDestFile.Name = "txtDestFile"
        Me.txtDestFile.Size = New System.Drawing.Size(400, 22)
        Me.txtDestFile.TabIndex = 3
        Me.txtDestFile.Text = "yourfile.txt"
        "
        "txtFilePath
        "
        Me.txtFilePath.Location = New System.Drawing.Point(102, 24)
        Me.txtFilePath.Name = "txtFilePath"
        Me.txtFilePath.Size = New System.Drawing.Size(400, 22)
        Me.txtFilePath.TabIndex = 1
        Me.txtFilePath.Text = "c:\yourfile.txt"
        "
        "btnFTPUpLoad
        "
        Me.btnFTPUpLoad.Location = New System.Drawing.Point(513, 24)
        Me.btnFTPUpLoad.Name = "btnFTPUpLoad"
        Me.btnFTPUpLoad.Size = New System.Drawing.Size(113, 24)
        Me.btnFTPUpLoad.TabIndex = 0
        Me.btnFTPUpLoad.Text = "Upload"
        "
        "DownloadPage
        "
        Me.DownloadPage.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnDelete, Me.Label8, Me.doFilePath, Me.Label7, Me.txtFTPDownLoadPath, Me.btnFTPDownLoad})
        Me.DownloadPage.Location = New System.Drawing.Point(4, 25)
        Me.DownloadPage.Name = "DownloadPage"
        Me.DownloadPage.Size = New System.Drawing.Size(647, 93)
        Me.DownloadPage.TabIndex = 2
        Me.DownloadPage.Text = "Download"
        Me.DownloadPage.Visible = False
        "
        "btnDelete
        "
        Me.btnDelete.Location = New System.Drawing.Point(512, 56)
        Me.btnDelete.Name = "btnDelete"
        Me.btnDelete.Size = New System.Drawing.Size(113, 24)
        Me.btnDelete.TabIndex = 9
        Me.btnDelete.Text = "Delete file"
        "
        "Label8
        "
        Me.Label8.Location = New System.Drawing.Point(10, 30)
        Me.Label8.Name = "Label8"
        Me.Label8.Size = New System.Drawing.Size(82, 16)
        Me.Label8.TabIndex = 8
        Me.Label8.Text = "FTP File"
        "
        "doFilePath
        "
        Me.doFilePath.Location = New System.Drawing.Point(92, 56)
        Me.doFilePath.Name = "doFilePath"
        Me.doFilePath.Size = New System.Drawing.Size(410, 22)
        Me.doFilePath.TabIndex = 7
        Me.doFilePath.Text = "c:\yourfile.txt"
        "
        "Label7
        "
        Me.Label7.Location = New System.Drawing.Point(10, 61)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(82, 16)
        Me.Label7.TabIndex = 6
        Me.Label7.Text = "Target File"
        "
        "txtFTPDownLoadPath
        "
        Me.txtFTPDownLoadPath.Location = New System.Drawing.Point(92, 24)
        Me.txtFTPDownLoadPath.Name = "txtFTPDownLoadPath"
        Me.txtFTPDownLoadPath.Size = New System.Drawing.Size(410, 22)
        Me.txtFTPDownLoadPath.TabIndex = 4
        Me.txtFTPDownLoadPath.Text = "yourfile.txt"
        "
        "btnFTPDownLoad
        "
        Me.btnFTPDownLoad.Location = New System.Drawing.Point(513, 24)
        Me.btnFTPDownLoad.Name = "btnFTPDownLoad"
        Me.btnFTPDownLoad.Size = New System.Drawing.Size(113, 24)
        Me.btnFTPDownLoad.TabIndex = 3
        Me.btnFTPDownLoad.Text = "Download file"
        "
        "Dir
        "
        Me.Dir.Controls.AddRange(New System.Windows.Forms.Control() {Me.btnChange, Me.Button3, Me.Button2, Me.Label6, Me.txtDir, Me.Button1})
        Me.Dir.Location = New System.Drawing.Point(4, 25)
        Me.Dir.Name = "Dir"
        Me.Dir.Size = New System.Drawing.Size(647, 93)
        Me.Dir.TabIndex = 3
        Me.Dir.Text = "Dir"
        "
        "btnChange
        "
        Me.btnChange.Location = New System.Drawing.Point(522, 16)
        Me.btnChange.Name = "btnChange"
        Me.btnChange.Size = New System.Drawing.Size(113, 22)
        Me.btnChange.TabIndex = 10
        Me.btnChange.Text = "Change Dir"
        "
        "Button3
        "
        Me.Button3.Location = New System.Drawing.Point(399, 56)
        Me.Button3.Name = "Button3"
        Me.Button3.Size = New System.Drawing.Size(113, 22)
        Me.Button3.TabIndex = 9
        Me.Button3.Text = "Current Folder"
        "
        "Button2
        "
        Me.Button2.Location = New System.Drawing.Point(276, 56)
        Me.Button2.Name = "Button2"
        Me.Button2.Size = New System.Drawing.Size(113, 22)
        Me.Button2.TabIndex = 8
        Me.Button2.Text = "Delete"
        "
        "Label6
        "
        Me.Label6.Location = New System.Drawing.Point(20, 20)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(82, 16)
        Me.Label6.TabIndex = 7
        Me.Label6.Text = "FTP Dir"
        "
        "txtDir
        "
        Me.txtDir.Location = New System.Drawing.Point(113, 16)
        Me.txtDir.Name = "txtDir"
        Me.txtDir.Size = New System.Drawing.Size(399, 22)
        Me.txtDir.TabIndex = 6
        Me.txtDir.Text = "C"
        "
        "Button1
        "
        Me.Button1.Location = New System.Drawing.Point(154, 56)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(112, 22)
        Me.Button1.TabIndex = 5
        Me.Button1.Text = "New"
        "
        "Label4
        "
        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(136, Byte))
        Me.Label4.Location = New System.Drawing.Point(31, 136)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(70, 16)
        Me.Label4.TabIndex = 11
        Me.Label4.Text = "Message"
        Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        "
        "txtMessage
        "
        Me.txtMessage.Location = New System.Drawing.Point(31, 160)
        Me.txtMessage.MaxLength = 1048576
        Me.txtMessage.Multiline = True
        Me.txtMessage.Name = "txtMessage"
        Me.txtMessage.ScrollBars = System.Windows.Forms.ScrollBars.Vertical
        Me.txtMessage.Size = New System.Drawing.Size(650, 192)
        Me.txtMessage.TabIndex = 10
        Me.txtMessage.Text = ""
        "
        "Form1
        "
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(716, 365)
        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.TabControl1, Me.Label4, Me.txtMessage})
        Me.TabControl1.ResumeLayout(False)
        Me.loginPage.ResumeLayout(False)
        Me.UploadPage.ResumeLayout(False)
        Me.DownloadPage.ResumeLayout(False)
        Me.Dir.ResumeLayout(False)
        Me.ResumeLayout(False)
    End Sub
    Dim myftp As New ftpClient()
    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Dim strReturnFields As String = ""
        Dim strName As String
        Dim strPWD As String
        Dim strftpLogin As String
        FieldsChek(strReturnFields)
        If strReturnFields.Length > 0 Then
            MessageBox.Show(strReturnFields + " cannot be empty")
            Return
        End If
        "" &laquo;&Oslash;
        strName = txtName.Text
        strPWD = txtPassword.Text
        strftpLogin = ftpLoign.Text
        myftp.LogInFTP(strName, strPWD, strftpLogin)
        txtMessage.Text = myftp.GetReturnNameMessage
        txtMessage.Text = txtMessage.Text + myftp.GetReturnPwdMessage
    End Sub
    Private Sub FieldsChek(ByRef strReturnFields As String)
        If txtName.Text.Length = 0 Then txtName.Focus()
        If txtPassword.Text.Length = 0 Then txtPassword.Focus()
        If ftpLoign.Text.Length = 0 Then ftpLoign.Focus()
    End Sub
    Private Sub btnFTPUpLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFTPUpLoad.Click
        Dim strUPFilePath As String
        Dim strFtpAddress As String
        Dim strMessage As String
        strUPFilePath = txtFilePath.Text
        strFtpAddress = txtDestFile.Text
        myftp.FTPUpLoad(strUPFilePath, strFtpAddress, strMessage)
        txtMessage.Text += vbCrLf + strMessage
    End Sub
    Private Sub btnFTPDownLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFTPDownLoad.Click
        Dim strFTPDownLoadPath As String
        Dim strFtpAddress As String
        Dim strMessage As String
        strFTPDownLoadPath = txtFTPDownLoadPath.Text
        strFtpAddress = doFilePath.Text
        myftp.FTPDownLoad(strFTPDownLoadPath, strFtpAddress, strMessage)
        txtMessage.Text += vbCrLf + strMessage
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strDir As String = txtDir.Text
        Dim strReturnMessage As String
        strReturnMessage = myftp.CreateDir(strDir)
        txtMessage.Text += vbCrLf + strReturnMessage
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strDir As String = txtDir.Text
        Dim strReturnMessage As String
        strReturnMessage = myftp.DeleteDir(strDir)
        txtMessage.Text += vbCrLf + strReturnMessage
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim strDir As String = txtDir.Text
        Dim strReturnMessage As String
        strReturnMessage = myftp.PrintDir()
        txtMessage.Text += vbCrLf + strReturnMessage
    End Sub
    Private Sub btnChange_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnChange.Click
        Dim strDir As String = txtDir.Text
        Dim strReturnMessage As String
        strReturnMessage = myftp.ChangeDir(strDir)
        txtMessage.Text += vbCrLf + strReturnMessage
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        Dim strFile As String = txtFTPDownLoadPath.Text
        Dim strReturnMessage As String
        strReturnMessage = myftp.DeleteFile(strFile)
        txtMessage.Text += vbCrLf + strReturnMessage
    End Sub
    Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click
        Dim strReturnMessage As String
        strReturnMessage = myftp.QuitFTP(strReturnMessage)
        txtMessage.Text += vbCrLf + strReturnMessage
    End Sub
End Class