主题：请教目录树

mark 拷贝节点

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim ls As New List(Of Object)
ls.add(trv2)
For Each nd As WinForm.TreeNode In trv.AllNodes
    If nd.Level >= 2 Then
        Dim idx As Integer = nd.level-2
        Dim nnd = ls(idx).Nodes.Add(nd.Name, nd.Text)
        If nd.Nodes.count > 0 Then
            If idx >= ls.count - 1 Then
                ls.add(nnd)
            Else
                ls(idx+1) = nnd
            End If
        End If
    End If
Next