Dim Ordner As New IO.DirectoryInfo("c:\test\")
Dim Datei As IO.FileInfo
Dim Ergebnis As New System.Collections.ArrayList
 
       For Each Datei In Ordner.GetFiles("*.jpg", _
         IO.SearchOption.AllDirectories)
            Ergebnis.Add(Datei.FullName)
        Next