Document/File Browser in vb.net

Document/File Browser in vb.net

Imports System.IO
Public Class Form25
    Dim k, k1 As String
    Private Sub Form25_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub




    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim MyFolderBrowser As New System.Windows.Forms.FolderBrowserDialog
        MyFolderBrowser.Description = "Please Select the Folder Containing Database Files"
        MyFolderBrowser.RootFolder = Environment.SpecialFolder.MyComputer
        Dim dlgResult As DialogResult = MyFolderBrowser.ShowDialog()
        If dlgResult = Windows.Forms.DialogResult.OK Then
            TextBox2.Text = MyFolderBrowser.SelectedPath
         
        End If


    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a As String
     
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
        ListBox3.Items.Clear()
        ListBox4.Items.Clear()
        Dim d As String = TextBox2.Text & "\"
        If System.IO.Directory.Exists(TextBox2.Text) Then
            For Each Dir As String In Directory.GetDirectories(TextBox2.Text)
                ListBox1.Items.Add(Replace(Dir, d, ""))
            Next

        Else
            MsgBox("Invalid Directory")
            TextBox2.Text = ""
            Exit Sub
        End If
     
        Dim di As New IO.DirectoryInfo(TextBox2.Text)
        Dim diar1 As IO.FileInfo() = di.GetFiles("*.*")

        Dim dra As IO.FileInfo

        Dim count = 0
        For Each dra In diar1
            ListBox2.Items.Add(dra)
            a = dra.Extension
            If a = ".mdf" Or a = ".LDF" Then
                ListBox4.Items.Add("Database Files")
            ElseIf a = ".docx" Or a = ".rtf" Then
                ListBox4.Items.Add("Word Files")
                ListBox3.Items.Add(dra)
            ElseIf a = ".xlsx" Then
                ListBox4.Items.Add("Speed Sheet Files")
                ListBox3.Items.Add(dra)
            ElseIf a = ".pdf" Or a = ".xps" Then
                ListBox4.Items.Add("Printing Files")
                ListBox3.Items.Add(dra)
            Else
                ListBox4.Items.Add("Other Files")
            End If
            count = count + 1
        Next

    End Sub

    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        If TextBox2.Text.Length < 5 Then
            TextBox2.Text = Nothing
        End If
        If TextBox2.Text = Nothing Then
            TextBox2.Text = ListBox1.Text
        Else
            TextBox2.Text = TextBox2.Text & "\" & ListBox1.Text
        End If

    
    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox2.Text = Nothing
    End Sub

 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If TextBox2.Text.Length = 0 Then
            MsgBox("Search String is empty")
            Exit Sub
        End If
        k = StrReverse(TextBox2.Text)
        Dim test As String = k
        Dim slen As Integer = TextBox2.Text.Length
        Dim startPos As Integer = test.IndexOf("_") + 1
        Dim endPos As Integer = test.IndexOf("\", startPos)
        Dim result As String = test.Substring(startPos, endPos - startPos)
        k1 = "\" & StrReverse(result)
        If TextBox2.Text = "" Then
            MsgBox("please choose a directory to Search")
        Else
            ' TextBox2.Text = Replace(slen, endPos + 1, "")
            TextBox2.Text = Replace(TextBox2.Text, k1, "")
        End If
    End Sub
End Class