Imports System.Net
Imports System.IO

Private strOldUrl = Nothing

Private Sub ToolConnectionButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolConnectionButton.Click
    ViewFTPList(ToolHostTextBox.Text)
End Sub

Private Sub ViewFTPList(ByVal strFTPUrl As String)
    Dim reader As StreamReader = Nothing
    ListBox1.Items.Clear()
    Try
        Dim listRequest As FtpWebRequest = WebRequest.Create(strFTPUrl)
        listRequest.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        Dim listResponse As FtpWebResponse = listRequest.GetResponse()
        reader = New StreamReader(listResponse.GetResponseStream())
        Dim strData As String
		
        Do
            strData = reader.ReadLine()
            If strData IsNot Nothing Then
                If strData.StartsWith("d") Then
                    ListBox1.Items.Add(strData.Substring(strData.LastIndexOf(" ") + 1) + " " + "<DIR>")
                Else
                    ListBox1.Items.Add(strData.Substring(strData.LastIndexOf(" ") + 1))
                End If
            End If
        Loop While Not strData Is Nothing
    Catch ex As UriFormatException
        ex.ToString()
    Catch ex As WebException
        ex.ToString()
    Finally
        If reader IsNot Nothing Then
            reader.Close()
        End If
    End Try
End Sub

Private Sub ListBox1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
    Try
        Dim strData As String = ListBox1.SelectedItem.ToString()
        Dim strNewUrl = Nothing
        Dim sep() As String = {" "}
        If strData <> Nothing Then
            Dim strSep() = strData.Split(sep, StringSplitOptions.RemoveEmptyEntries)
            If strSep.Length = 2 Then
                If ToolHostTextBox.Text.LastIndexOf("/") = ToolHostTextBox.Text.Length - 1 Then
                    strNewUrl = ToolHostTextBox.Text + strSep(0)
                Else
                    strNewUrl = ToolHostTextBox.Text + "/" + strSep(0)
                End If
            End If
            If strNewUrl <> Nothing Then
                strOldUrl = ToolHostTextBox.Text
                ToolHostTextBox.Text = strNewUrl
            End If
        End If
    Catch ex As Exception
        ex.ToString()
    End Try
End Sub

Private Sub ToolBackButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolBackButton.Click
    If strOldUrl <> Nothing Then
        Dim strDumyUrl As String = ToolHostTextBox.Text
        ViewFTPList(strOldUrl)
        ToolHostTextBox.Text = strOldUrl
        strOldUrl = strDumyUrl
    End If
End Sub

Private Sub ToolUpButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolUpButton.Click
    Dim strDumyUrl As String = ToolHostTextBox.Text
    Dim iIndex As Integer = strDumyUrl.LastIndexOf("/")
    If iIndex = strDumyUrl.Length - 1 Then
        strDumyUrl = strDumyUrl.TrimEnd("/"c)
    End If
	
    Dim iIndex2 As Integer = strDumyUrl.LastIndexOf("/")
    If strDumyUrl(iIndex2 - 1) <> "/"c Then
        strDumyUrl = strDumyUrl.Remove(iIndex2 + 1, strDumyUrl.Length - 1 - iIndex2)
        ViewFTPList(strDumyUrl)
        strOldUrl = ToolHostTextBox.Text
        ToolHostTextBox.Text = strDumyUrl
    End If
End Sub