主题：如何判断目录树某一层是否有同名的节点

循环判断不就行了？比如代码

Dim pnd As Object

If e.Node.ParentNode Is Nothing Then
    pnd = e.Sender
Else
    pnd = e.node.ParentNode
End If
Dim count As Integer = 0
For Each nd As WinForm.TreeNode In pnd.Nodes
    If nd.Text = e.node.Text Then
        count += 1
    End If
Next
msgbox(count)