lenguaje de programación Microsoft Visual Basic contiene las funciones que le dan la capacidad de utilizar la información del sistema de Windows. Incluye los métodos para recuperar información sobre los archivos y directorios. El Método " My.Computer.FileSystem.GetFiles " devuelve un conjunto de cadenas que representan los nombres de ruta de los archivos . Con el parámetro " GetFiles " en su programa de Visual Basic , puede definir el nombre y la ruta del directorio para trabajar con las unidades y archivos de aplicaciones de usuario. Instrucciones
1

clic en "Inicio " de Windows y, a continuación, haga clic en " Microsoft Visual Studio ".

2 Haga clic en " Archivo". Seleccione "Open ", a continuación, haga doble clic en el programa de Visual Basic en la que desea agregar la función de búsqueda de archivos.
3

Agregue el código siguiente después de la " Public Shared Function " line :

FindFiles función ( ruta As String , SearchStr As String , _

FileCount As Integer , DirCount As Integer )

NombreArchivo As String Dim ' variable de nombre de archivo.

DirName Dim As String' nombre de subdirectorio .

dirNames Dim () como búfer de cadena "para nombres entradas

directorio Telefónico .

Dim NDIR As Integer ' Cantidad de directorios en Destinia.com

este camino.

Dim i As Integer ' contador de For- loop.

On Error GoTo sysFileERR

Si derecha (path, 1 ) < > "\\" Entonces path = ruta & " \\ "

' Buscar subdirectorios.

NDIR = 0

ReDim ( dirNames NDIR )

DirName = Dir (path, vbDirectory O vbHidden O

vbArchive O vbReadOnly _

O vbSystem ) "Aunque oculto, y así sucesivamente.
< p> Do While Len ( DirName ) > 0

' Ignorar los directorios actuales y relacionados.

Si ( DirName < > ".") y ( DirName < > " .. ") Entonces descubre

' para el directorio con la comparación bit a bit .

Si getAttr (ruta y DirName ) y vbDirectory

Entonces

dirNames ( NDIR ) = DirName

DirCount = DirCount + 1

NDIR = NDIR + 1

ReDim Preserve dirNames ( NDIR )

End If '
< p> directorios

sysFileERRCont : .

End If

DirName = Dir () ' . Consigue siguiente subdirectorio

Loop

' Buscar a través de este directorio.

archivo = Dir (ruta y SearchStr , vbNormal O

vbHidden O vbSystem _

O vbReadOnly O vbArchive )

Mientras Len ( nombre de archivo) < > 0

FindFiles = FindFiles + FileLen (ruta y nombre de archivo)

FileCount = FileCount + 1

archivo = Dir ( ) ' Obtener el archivo siguiente .

Wend

For Each Text1.Text As String En

My.Computer.FileSystem.GetFiles ( _

My.Computer.FileSystem.SpecialDirectories . Mis documentos , _

FileIO.SearchOption.SearchAllSubDirectories , "* . dll" )

Listbox.Items.Add ( Text1.Text )

Siguiente
< p > Dim SearchPath As String , findstr As String

Tamaño archivo Dim As Long

numFiles Dim As Integer , NumDirs As Integer

findstr = Text1.Text

Tamaño archivo = FindFiles ( SearchPath , findstr , numFiles ,

NumDirs ) guía

Text3.Text = numFiles y "Archivos que se encuentra en " & NumDirs

+ 1 & _

" Directorios "
4

clic en "Archivo " y luego " Guardar" para añadir la función de búsqueda de archivos a su programa.