<TreeListView> TreeListView To DataTable

 

 

 

 

 

<Code>

    Private Sub TreeListViewToDataTable(dt As DataTable, ByRef nodes As TreeListNodeCollection)
        For Each node As TreeListNode In nodes
            If node.Level = 3 Then
                Dim fullPath As String = node.FullPath
                Dim strNodes() As String = fullPath.Split("\")
                Debug.Print(node.Nodes.Item(0).ToString)
                For Each s As TreeListNode In node.Nodes
                    dt.Rows.Add(strNodes(0), strNodes(1), strNodes(2), strNodes(3),
                        s.ToString, s.SubItems.Item(0))
                Next
            End If
            TreeListViewToDataTable(dt, node.Nodes)
        Next
    End Sub