VB.Net开发类资源管理器应用：如何通过文件路径定位TreeView节点？

问题根源 #

TreeView.Nodes.Find()方法默认仅匹配TreeNode的Name属性，而非Tag或Text。你手动构造节点时，明确给每个节点的Name赋值了完整文件路径，因此查找有效；但实际加载文件结构时，只设置了节点的Tag属性，Name属性为空，导致Find方法无法匹配到目标节点。

解决方案 #

1. 修正节点创建逻辑，同步设置Name属性

在创建驱动器节点和文件夹节点时，将Name属性设置为与Tag一致的完整路径，确保Find方法能精准匹配：

修改Form1_Load中的驱动器节点创建：

将驱动器节点的Tag和Name统一设置为标准路径格式（如C:\），避免卷标重复或格式不一致的问题：

With tNode
    .ImageIndex = 0
    .SelectedImageIndex = 0
    .Text = dName ' 保持显示卷标或驱动器名
    .Nodes.Add("")
    .Tag = Drive.Name ' 用标准路径作为Tag
    .Name = Drive.Name ' 设置Name属性为标准路径，供Find方法匹配
End With

修改GetFolders中的文件夹节点创建：

给每个文件夹节点添加Name属性赋值，与Tag保持一致：

With tNode
    .ImageIndex = 1
    .SelectedImageIndex = 1
    .Tag = nFolder.FullName
    .Text = nFolder.Name.ToString()
    .Nodes.Add("")
    .Name = nFolder.FullName ' 添加该行，设置Name为完整路径
End With

2. 标准化查找路径，避免格式差异

用户输入的路径可能存在末尾斜杠不一致（如C:\Data和C:\Data\），需要标准化后再执行查找：

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Dim targetPath As String = TextBox1.Text.Trim()
    If String.IsNullOrEmpty(targetPath) Then Return

    ' 标准化路径格式，统一处理末尾斜杠
    targetPath = Path.GetFullPath(targetPath)
    
    Dim nodes As TreeNode() = TreeView1.Nodes.Find(targetPath, True)
    If nodes.Length > 0 Then
        Dim selectedNode As TreeNode = nodes(0)
        TreeView1.SelectedNode = selectedNode
        ' 展开所有父节点，确保目标节点完全可见
        Dim parentNode As TreeNode = selectedNode.Parent
        While parentNode IsNot Nothing
            parentNode.Expand()
            parentNode = parentNode.Parent
        End While
        selectedNode.EnsureVisible()
    End If
End Sub

效果说明 #

修改完成后，当TextBox输入实际文件路径时，Nodes.Find()将能正确匹配到对应的TreeView节点，实现类似资源管理器的路径定位功能，包括"向上"按钮的路径跳转逻辑。

内容的提问来源于stack exchange，提问作者user1377723