¿Es posible? Recorrer nombre de archivos VB.Net

[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