Поиск файлов по маске

Imports System
Imports System.IO

Try
    ' Only get files that begin with the letter "c."
    Dim dirs As String() = Directory.GetFiles("c:\", "c*")
    Console.WriteLine("The number of files starting with c is {0}.", dirs.Length)
    Dim dir As String
    For Each dir In dirs
        Console.WriteLine(dir)
    Next
Catch e As Exception
    Console.WriteLine("The process failed: {0}", e.ToString())
End Try

Dim Dirs As String()
    Dim files As String()
    Dim cdir As String
    Private Sub Search(ByVal fold As String, ByVal mask As String)
        Try
            files = System.IO.Directory.GetFiles(fold, mask)
            Me.ListBox1.Items.AddRange(files)
            Dirs = System.IO.Directory.GetDirectories(fold, "*", IO.SearchOption.TopDirectoryOnly)
        Catch ex As Exception
        End Try
        If Not Dirs Is Nothing Then
            For Each cdir In Dirs
                Me.Search(cdir, mask)
            Next
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Search("C:\", "*.jpg")
    End Sub

Public Class Form1
    Dim Dirs As String()
    Dim files As String()
    Dim cdir As String
    Private Sub Search(ByVal fold As String, ByVal mask As String)
        Try
            files = System.IO.Directory.GetFiles(fold, mask)
            For Each Pp As String In files
                AddPic(Pp)
            Next
            Dirs = System.IO.Directory.GetDirectories(fold, "*", IO.SearchOption.TopDirectoryOnly)
        Catch ex As Exception
        End Try
        If Not Dirs Is Nothing Then
            For Each cdir In Dirs
                Me.Search(cdir, mask)
            Next
        End If
    End Sub
    Sub AddPic(ByVal PicPath As String)
        Static Lft As Integer = 10
        Static Tp As Integer = 10
        If Lft > Me.Width - 90 Then : Tp += 90 : Lft = 10 : End If
        Dim P As New PictureBox With {.Width = 70, .Height = 70, .Left = Lft, .Top = Tp, .backgroundImage = Image.FromFile(PicPath), .BackgroundImageLayout = ImageLayout.Zoom}
        Controls.Add(P)
        Lft += 90
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AutoScroll = 1
        Search("C:\program files", "*.jpg")
    End Sub
End Class