如何通过ComboBox选中项在OpenFileDialog中自动选中对应文件？

环境信息 #

• Win Forms
• VS 2019
• Win10
• VB.NET

需求说明 #

• 已实现功能：
  • 用目标文件夹中的文件名填充ComboBox
  • 点击ComboBox中的项时，通过OpenFileDialog选择文件并将文本文件内容填充到ListBox
• 待实现：点击ComboBox项时，OpenFileDialog打开后自动选中与该项对应的文件

当前使用代码 #

ComboBox的SelectedIndexChanged事件代码：

Dim openfile = New OpenFileDialog() With {.Filter = "Text (*.Text)|*.txt"}

With openfile
    .InitialDirectory = "C:\Users\" + "username" + "\Documents\WIN32 VIEWER"
End With

If (openfile.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then

    For Each line As String In File.ReadAllLines(openfile.FileName)
        ListBox1.Items.Add(line)
    Next
End If

已尝试方案 #

曾在其他程序中使用以下代码实现文件选中，但无法适配当前场景：

Dim sFileName As String = ofd.FileName  '(原示例路径："C:\Images\Test.png")
Process.Start("explorer.exe", "/select," & sFileName)

解决方案 #

无需调用explorer.exe，直接设置OpenFileDialog的FileName属性即可实现自动选中目标文件。修改后的完整代码如下：

Imports System.IO

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    ' 获取ComboBox选中的文件名
    Dim selectedFileName As String = ComboBox1.SelectedItem?.ToString()
    If String.IsNullOrEmpty(selectedFileName) Then Exit Sub

    ' 拼接完整文件路径
    Dim targetDir As String = "C:\Users\username\Documents\WIN32 VIEWER"
    Dim fullFilePath As String = Path.Combine(targetDir, selectedFileName)

    ' 验证文件是否存在，避免无效路径
    If Not File.Exists(fullFilePath) Then
        MessageBox.Show("目标文件不存在！")
        Exit Sub
    End If

    Dim openfile = New OpenFileDialog() With {
        .Filter = "Text (*.txt)|*.txt",
        .InitialDirectory = targetDir,
        ' 设置FileName为选中的文件名，打开对话框时自动定位并选中该文件
        .FileName = selectedFileName
    }

    If openfile.ShowDialog() = DialogResult.OK Then
        ListBox1.Items.Clear() ' 清空原有内容，避免重复添加
        For Each line As String In File.ReadAllLines(openfile.FileName)
            ListBox1.Items.Add(line)
        Next
    End If
End Sub

关键要点 #

• FileName属性：在指定InitialDirectory的前提下，直接设置为ComboBox选中的文件名，OpenFileDialog打开时会自动定位并选中该文件；也可以传入完整文件路径，效果一致
• 添加文件存在性验证：避免选中不存在的文件时出现异常
• 清空ListBox：每次填充前调用Clear()，保证内容不重复

内容的提问来源于stack exchange，提问作者John Michael Wilkinson