[أبو ناصر]

فهمت قصدك ، يتطلب ذلك كود صلاحيات الوصول للقرص C 
حاول أن تبحث عنه ، و ان وجدته سأزودك به ان شاء الله
 
الكود السابق يشتغل في الأقراص الأخرى D ,E... قمت بتجربته ويعمل . عدلته حسب طلبك مع بعض التغييرات البسيطة كمايلي :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       ListBox1.Items.Clear()
       Dim FBD As New FolderBrowserDialog
       If FBD.ShowDialog <> DialogResult.OK Then Return
       Dim source_path As String = FBD.SelectedPath
       Dim arrayFiles() As String = Directory.GetFiles(source_path, TextBox1.Text & ".*")
       For Each x In arrayFiles
         ListBox1.Items.Add(x)
       Next
   End Sub