按名称获取子文件夹并将 Web 浏览器导航到该路径

Question

我的组合框包含文件夹名称（位于我的 C:\ 子文件夹中）作为项目。我想根据组合框中选定的文件夹名称导航我的 Web 浏览器。这是我尝试过的：

Dim myDirectories = Directory.GetDirectories("C:\", MyCombo.Text, SearchOption.AllDirectories)

          WebBrowser1.Navigate(myDirectories)

我必须如何搜索子文件夹才能完成这项工作？我收到错误：“指定的地址不存在。”在浏览器控制中。

编辑（让自己更清楚一点）：

Example - 有一个名为 Test 的文件夹和一个名为 Example....示例”。

1. 我从组合框项目中选择“测试”或“示例”；

2. 然后通过代码，Webbrowser 应该导航到我 PC 上的那个文件夹 URL。

因此代码应该按照 Combobox 中的名称搜索所有文件夹/子文件夹，然后将路径传递给 Webbrowser URL（如果有任何匹配条件）。

Answer 1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim strFiles As String() = IO.Directory.GetDirectories("C:\")
    For Each sDir As String In strFiles
        ListBox1.Items.Add(sDir)
    Next
End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    If ListBox1.Items.Count > -1 Then
        Process.Start("explorer", ListBox1.SelectedItem.ToString)
    End If
End Sub

Answer 2

解决了。我就是这样做的，请随时提出更好的建议：

Dim myDirectory = Directory.GetDirectories("C:\", MyCombo.Text, SearchOption.AllDirectories)

 For Each folder As String In myDirectory

            WebBrowser1.Navigate(folder)
 Next

Answer 3

为什么要使用网络浏览器获取本地路径？ Web 浏览器用于 Internet，这就是为什么您在寻找 http 而不是 c:\ 时收到错误的原因。

用组合框代替列表框

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim strFiles As String() = IO.Directory.GetDirectories("C:\")
    For Each sDir As String In strFiles
        ComboBox1.Items.Add(sDir)
    Next

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    If ComboBox1.Items.Count > -1 Then
        Process.Start("explorer", ComboBox1.SelectedItem.ToString)
    End If
End Sub

如果您愿意，可以使用该 ListBox 来保存所选目录中的文件列表，从而完全删除 Web 浏览器控件

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    Dim strFiles As String() = Nothing
    If ComboBox1.Items.Count > 0 Then
        strFiles = IO.Directory.GetFiles(ComboBox1.SelectedItem.ToString)
        ListBox1.Items.Clear()
        For Each sFile As String In strFiles
            ListBox1.Items.Add(IO.Path.GetFileName(sFile))
        Next
    End If
End S