¿Es posible? Recorrer nombre de archivos VB.Net

[LuismanueL]

Amigos,

Quería saber principalmente si es posible mediante una pequeña aplicación en VB.Net recorrer el árbol de archivos del explorador para encontrar un archivo, me muestre en un ListBox todas las coincidencias y escoger uno de la lista para abrirlo.

Como verán la aplicacion constaría de una caja te texto (para colocar parte o el nombre total del archivo) y el ListBox para que me liste todas las coincidencias.

¿Es posible?

De ser posible, me pueden dar algunas pistas para poder implementar esta pequeña aplicación?

Gracias!

[Elfermx]

si , Libreria System.IO

[LuismanueL]

Ok Elfermx, revisaré dicha libreria para realizar esa tarea.

Si alguién tiene más datos de ayuda entonces bienvenido sea :D

[freegirl]

Ejemplo:

Código:

Private Function search(ByVal Directorio As String) As Boolean
        Try
            For Each File As String In IO.Directory.GetFiles(Directorio, txtBusqueda.Text, IO.SearchOption.AllDirectories)
                'aquí pones el código necesario para ir llenando el listbox
            Next
        Catch ex As Exception
            'pon código 
        End Try
    End Function

donde la variable directorio es el directorio dónde buscar
dónde la caja de texto txtBusqueda es el texto a buscar que introduce el usuario. Puede usar * como comodín.

[LuismanueL]

Buen dato freegirl,

Completé con código adicional para buscar el directorio de manera dinámica utilizando el objeto FolderBrowserDialog

Código:

Imports System.IO

Public Class Form1

    Private Sub btnExaminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExaminar.Click
        Dim fd As New FolderBrowserDialog

        With fd
            .RootFolder = Environment.SpecialFolder.Desktop
            .SelectedPath = "c:\"
            .Description = "Seleccione el directorio"
            If .ShowDialog = DialogResult.OK Then
                Me.txtRuta.Text = .SelectedPath
            End If
        End With
    End Sub

    Private Sub cmbBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbBuscar.Click
        Me.lstResultado.Items.Clear()
        Try
            For Each File As String In IO.Directory.GetFiles(Me.txtRuta.Text, Me.txtArchivo.Text, IO.SearchOption.AllDirectories)
                'aquí pones el código necesario para ir llenando el listbox
                Me.lstResultado.Items.Add(File.ToString)
            Next
        Catch ex As Exception
            'pon código 
        End Try

    End Sub
End Class