如何从具有 vb.net 的驱动器获取可访问的文件夹名称 （Visual Studio 2012 Express）

问：

我正在尝试为一个朋友创建一个程序，让他可以“整理”并找到他的文件。
他有几个驱动器和许多文件夹。我想为他做的是：

1. 具有在组合框中列出所有活动驱动器的代码。然后，他可以选择要搜索任何或仅按扩展名搜索的文件类型的驱动器。

2. 然后他要么选择“一切”，要么选择特定类型（即：音乐）

3. 单击按钮后，列表框将填充文件的完整路径

开始这个写作过程，我已经完成了这个任务：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Button1.Enabled = False

    Dim allDrives() As DriveInfo = DriveInfo.GetDrives()

    Dim d As DriveInfo
    For Each d In allDrives
        If d.IsReady Then ComboBox1.Items.Add(d)
    Next

End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    If ComboBox1.SelectedIndex <> -1 Then

        Try

            For Each DName As String In My.Computer.FileSystem.GetDirectories(ComboBox1.Text, FileIO.SearchOption.SearchTopLevelOnly)
                Dim LDN As Integer = Len(DName)
                Dim FName As String = Strings.Mid(DName, 4, LDN - 3)
                CheckedListBox1.Items.Add(FName, False)
            Next

        Catch ex As Exception

        End Try

    Else
        Exit Sub
    End If

End Sub

我的第一个问题是 GetDirectories 进程正在获取我知道我无权访问的目录。我正试图弄清楚如何防止这种情况发生。谁能帮我。