Hola,
Metodo 1, obtener todas las coincidencias
Dim images As List(Of Image)
Dim images As New List(Of Image)()
Dim di As New DirectoryInfo("c:\myimages")
' give path
Dim finfos As FileInfo() = di.GetFiles("*.jpg", SearchOption.TopDirectoryOnly)
For Each fi As FileInfo In finfos
images.Add(Image.FromFile(fi.FullName))
Next
Metodo 2, buscar por coincidencia
Public Function GetMatchingImages(path As String, keyword As String) As IList(Of String)
Dim matches = New List(Of String)()
Dim images = System.IO.Directory.GetFiles(path)
For Each image As var In images
If image.Contains(keyword) Then
matches.Add(image)
End If
Next
Return matches
End Function
Saludos,
Jason Ulloa
Mi Blog
