主题：判断目录树节是否有相同

  你问题是什么？没弹出提示？

Dim tv As System.Windows.Forms.TreeView  = e.Form.Controls("TreeView1").BaseControl
Dim nd() As System.Windows.Forms.TreeNode = tv.Nodes.Find(e.Sender.Text,True)
If nd.Length > 0 Then
    msgbox("节点已存在")
    tv.SelectedNode = nd(0)
End If