[Anas Mahmoud]

تفضل 

كود :

       Dim dir As String = TextBox1.Text
       If Directory.Exists(dir) = False Then
           MsgBox("عنوان غير صالح")
           Exit Sub
       End If
       Dim SearchPattern As String = TextBox2.Text
       Dim paths As String() = Directory.GetFiles(dir, SearchPattern, SearchOption.AllDirectories)
       ListBox1.DataSource = paths