VB.NET de Uzantı Arama

vb.net

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        For Each bulunan As String In My.Computer.FileSystem.GetFiles( _
    My.Computer.FileSystem.SpecialDirectories.MyPictures, _
    FileIO.SearchOption.SearchAllSubDirectories, ComboBox1.Text)
            ListBox1.Items.Add(bulunan)
        Next
    End Sub
End Class