A continuación, incluiremos el siguiente código dentro de Button1_Click():
Imports [Link]
Public Class Form1
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim f As Long
[Link]()
If Trim([Link]) <> “” Then
Dim strBusco As String = Trim([Link])
Dim strRuta As String =
[Link]
For Each Archivo As String In
[Link](strRuta, [Link]
rectories, _
strBusco)
Refresh()
[Link](Archivo)
Next
f = [Link]
[Link] = “Resultado de la búsqueda: “ & f & “
archivo(s) encontrado(s)”
End If
End Sub
End Class
La misma función GetFiles que utilizamos en el ejemplo anterior para listar los
archivos de la carpeta seleccionada se usa en este caso con una serie de parámetros
adicionales, que nos permiten especificar en qué ruta buscar (st