For Each _d As String In Directory.GetDirectories(txtPath.Text)

            Dim _folder As String = _d.Substring(_d.LastIndexOf("\") + 1)
            Dim parentNode As TreeNode = New TreeNode(_folder)

            For Each _dd As String In Directory.GetDirectories(txtPath.Text & "\" & _folder)

                Dim _dfolder As String = _dd.Substring(_dd.LastIndexOf("\") + 1)
                Dim childNode As TreeNode = New TreeNode(_dfolder)
                'parentNode.ChildNodes.Add(childNode)
                parentNode.Nodes.Add(childNode)

            Next

            tvListFolders.Nodes.Add(parentNode)
        Next