主题：目录树如何禁止重命名后重名？

参考：

http://www.foxtable.com/help/topics/2396.htm

你看看这个目录树名称为1的能否改名：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目216.rar

1不能改为2：

If e.Node.text = "1" Then
    If e.NewText = "2" Then
        e.cancel = True
    End If
End If

不存在这种问题，你有规则就可以编码。

很简单，比较一下同级目录有没有标题和新输入内容相同的节点即可，AfterEditNode事件代码设置为：

If e.NewText <> e.Node.text Then
    If e.node.ParentNode IsNot Nothing  Then
        For Each nd As WinForm.TreeNode In e.Node.ParentNode.Nodes
            If nd.Text = e.NewText Then
                e.cancel = True
                Return
            End If
        Next
    Else
        For Each nd As WinForm.TreeNode In e.Node.ParentNode.Nodes
            If nd.Text = e.NewText Then
                e.cancel = True
                Return
            End If
        Next
    End If
End If