SnipTree

 Dim NodesThatMatch As New List(Of TreeNode)

    Private Function SearchTheTreeView(ByVal TV As TreeView, ByVal TextToFind As String) As TreeNode
        '  Empty previous
        NodesThatMatch.Clear()

        ' Keep calling RecursiveSearch
        For Each TN As TreeNode In TV.Nodes
            If TN.Text = TextToFind Then
                NodesThatMatch.Add(TN)
            End If

            RecursiveSearch(TN, TextToFind)
        Next

        If NodesThatMatch.Count > 0 Then
            Return NodesThatMatch(0)
        Else
            Return Nothing
        End If

    End Function


    Private Sub RecursiveSearch(ByVal treeNode As TreeNode, ByVal TextToFind As String)

        ' Keep calling the test recursively.
        For Each TN As TreeNode In treeNode.Nodes
            If TN.Text = TextToFind Then
                NodesThatMatch.Add(TN)
            End If

            RecursiveSearch(TN, TextToFind)
        Next
    End Sub





    Dim GoPlaceHolder As String = ""



    Private Sub btnexpand_Click(sender As Object, e As EventArgs) Handles btnexpand.Click

        If btnexpand.Text = CStr("CollapseAll") Then
            btnexpand.Text = "ExpandAll"
        Else
            btnexpand.Text = CStr("CollapseAll")
        End If
        If btnexpand.Text = "CollapseAll" Then explorer_tree.ExpandAll()
        If btnexpand.Text = "ExpandAll" Then explorer_tree.CollapseAll()
    End Sub



    Private Sub btnsavetxt_Click(sender As Object, e As EventArgs) Handles btnsavetxt.Click
        My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\snippettree_data\home\" + Txtenterpath.Text, hometxt.Text, False)
    End Sub



    Private Sub btnnewfolder_Click(sender As Object, e As EventArgs) Handles btnnewfolder.Click
        Dim di As DirectoryInfo
        Dim plus As String = Txtenterpath.Text

        If plus.Length > 1 Then
            di = New DirectoryInfo(home + "\" + plus)
        Else
            di = New DirectoryInfo(home)
        End If


        Dim sd As DirectoryInfo = di.CreateSubdirectory(Txtfoldername.Text)

        If Not Me.explorer_tree.SelectedNode Is Nothing Then
            Me.explorer_tree.SelectedNode.Collapse()
            Me.explorer_tree.SelectedNode.Expand()
        Else

            Dim Pname As String = sd.ToString

            Dim names() As String = Pname.Split("\")
            Dim count As Integer = names.Count - 1
            For z As Integer = 0 To count
                btngo.PerformClick()

                explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, names(z))



            Next
        End If
    End Sub




    Private Sub btnBinfolder_Click(sender As Object, e As EventArgs) Handles btnbinfolder.Click
        Dim snode2 As TreeNode = Me.explorer_tree.SelectedNode
        Dim vCurrentPath As String = GetFullPathForTreeNode(snode2)
        Dim Extension As String = Path.GetExtension(vCurrentPath)

        If Not Extension = ".txt" Or Extension = ".snippet" Then
            My.Computer.FileSystem.DeleteDirectory(Application.StartupPath + "\snippettree_data\home\" + Txtenterpath.Text, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
        End If

        Dim parentf As String = dirictoryparentname1(vCurrentPath)

        Txtenterpath.Text = parentf

        explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, parentf)


        If Not Me.explorer_tree.SelectedNode Is Nothing Then
            Me.explorer_tree.SelectedNode.Collapse()
            Me.explorer_tree.SelectedNode.Expand()
        Else

            Dim Pname As String = parentf

            Dim names() As String = Pname.Split("\")
            Dim count As Integer = names.Count - 1
            For z As Integer = 0 To count
                If GoPlaceHolder.Length > 0 Then
                    gohome(home + "\" + GoPlaceHolder)
                Else
                    gohome(home)
                End If


                explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, names(z))



            Next
        End If

    End Sub

    Private Sub btnnewfile_Click(sender As Object, e As EventArgs) Handles btnnewfile.Click



        Dim str As String = Txtenterpath.Text
        If str.Contains(".txt") = False Then

            ' Suedo Code You Have A Parent
            If Txtenterpath.Text.Length > 0 Then


                Dim chosentxtname As String = txtfilename.Text
                Dim path As String = ""



                path = home & "\" & Txtenterpath.Text & "\" & chosentxtname & ".txt"



                Dim sw As StreamWriter = File.CreateText(path) ' Create a file to write to.
                sw.WriteLine("Hello")
                sw.Flush()
                sw.Close()

                ' Suedo Code Refresh The Home Loction NOW UPDATE Select Files
                If GoPlaceHolder.Length > 0 Then
                    gohome(home + "\" + GoPlaceHolder)

                    Dim fullname As String = Txtenterpath.Text & "\" & chosentxtname & ".txt"
                    Dim names2() As String = fullname.Split("\")
                    Dim count As Integer = names2.Count - 1


                    Dim fullnameGOPlaceHolder As String = GoPlaceHolder
                    Dim namesGo() As String = fullnameGOPlaceHolder.Split("\")
                    Dim countGo As Integer = namesGo.Count - 1



                    For z As Integer = 0 To count


                        If z > countGo Then
                            If Not z = count Then
                                explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, names2(z))
                                Me.explorer_tree.SelectedNode.Expand()
                            Else
                                explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, names2(z))
                            End If

                        End If

                    Next


                Else
                    gohome(home)

                    Dim fullname As String = Txtenterpath.Text & "\" & chosentxtname & ".txt"
                    Dim names2() As String = fullname.Split("\")
                    Dim count As Integer = names2.Count - 1

                    For z As Integer = 0 To count


                        If Not z = count Then
                            explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, names2(z))
                            Me.explorer_tree.SelectedNode.Expand()
                        Else
                            explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, names2(z))
                        End If



                    Next



                End If
            Else
                Dim chosentxtname As String = txtfilename.Text
                Dim path As String = ""

                path = home & "\" & chosentxtname & ".txt"



                Dim sw As StreamWriter = File.CreateText(path) ' Create a file to write to.
                sw.WriteLine("Hello")
                sw.Flush()
                sw.Close()
                gohome(home)
                explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, chosentxtname & ".txt")


            End If


        Else
            MsgBox("Can Not Create On Txt File")
        End If


    End Sub

    Private Sub BtnBack_Click(sender As Object, e As EventArgs) Handles BtnBack.Click

        If Not Me.explorer_tree.SelectedNode Is Nothing Then

            Dim snode2 As TreeNode = Me.explorer_tree.SelectedNode
            Dim vCurrentPath As String = GetFullPathForTreeNode(snode2)

            Dim newCurrentDirectory As DirectoryInfo = New DirectoryInfo(vCurrentPath)

            Dim HoldString As String = newCurrentDirectory.Parent.FullName

            Dim name1 As String = dirictoryname1(HoldString)




            explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, name1)

        Else
            MsgBox("Selected ?..")
        End If

    End Sub




    Private Sub Btnfiledel_Click_1(sender As Object, e As EventArgs) Handles Btnfiledel.Click

        Dim snode2 As TreeNode = Me.explorer_tree.SelectedNode
        Dim vCurrentPath As String = GetFullPathForTreeNode(snode2)
        Dim parentf As String = dirictoryparentname1(vCurrentPath)

        Dim placeholder As String = Txtenterpath.Text

        explorer_tree.SelectedNode = SearchTheTreeView(explorer_tree, parentf)

        My.Computer.FileSystem.DeleteFile(home + "\" + placeholder, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)

        If Not Me.explorer_tree.SelectedNode Is Nothing Then

            Me.explorer_tree.SelectedNode.Collapse()
            Me.explorer_tree.SelectedNode.Expand()

        Else

            Txtenterpath.Text = GoPlaceHolder
            hometxt.Clear()
            Dim vCurrentFolder As String = Application.StartupPath + "\snippettree_data\home\" + GoPlaceHolder
            Dim Extension As String = Path.GetExtension(Txtenterpath.Text)
            explorer_tree.BeginUpdate()
            explorer_tree.Nodes.Clear()
            FillExplorerTree(vCurrentFolder, Nothing)
            explorer_tree.EndUpdate()

        End If


    End Sub