none
¿Buscar imagenes en Directorio? RRS feed

  • Pregunta

  • Hola buenas tengo un problema y es que necesito buscar imagenes de tipo ,jpg , jpeg, .gif de un determinado directorio, necesito información de como hacerlo
    jueves, 25 de noviembre de 2010 18:16

Respuestas

  • 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
    jueves, 25 de noviembre de 2010 18:24