主题：这段代码有啥问题

If e.Node.Checked = True
    For Each nd As WinForm.TreeNode In e.Node.AllNodes
         nd.Delete
    Next

    e.Node.Delete
End If

晕，我以为是删除当前目录树的节点！

不必要遍历整个目录树，如果目录树的节点太多的时候，也存在效率问题，严谨一点，老朱用这个代码看看：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView2")
Dim s,ps As String
If e.Node.Checked = True
        s = e.Node.name
    If e.Node.Level = 0
        If trv.Nodes.Contains(s) = True
            For Each nd As WinForm.TreeNode In trv.nodes(s).AllNodes
                nd.Delete
            Next
            trv.nodes(s).Delete
        End If
    Else
        ps = e.Node.ParentNode.name
        If trv.Nodes(ps).nodes.Contains(s) = True
            trv.Nodes(ps).nodes(s).Delete
        End If
    End If
End If