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.