Cómo buscar un archivo en VB

Microsoft lenguaje de programación 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 para los archivos. Con el parámetro "GetFiles" en el 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 Haga clic en "Inicio" de Windows y haga clic en "Microsoft Visual Studio."

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

3 Agregue el código siguiente después de la línea "Función pública compartida":

Function FindFiles(path As String, SearchStr As String,

_

FileCount As Integer, DirCount As Integer)

Dim NombreArchivo Como variable de cadena Nombre del archivo '.

Dim DirName As String 'Nombre subdirectorio.

dirNames Dim () como tampón de cuerdas 'para el nombre del directorio

las entradas.

Dim nDir As Integer ' Number of directories in

este camino.

Dim i As Integer ' For-loop counter.

On Error GoTo sysFileERR

Si derecha (ruta, 1) & lt;> "\" Entonces ruta = ruta & "\"

'Búsqueda de subdirectorios.

NDIR = 0

dirNames ReDim (NDIR)

DirName = Dir (ruta, vbDirectory O O vbHidden

vbArchive O _ vbReadOnly

Or vbSystem) ' Even if hidden, and so on.

Hacer mientras que Len (DirName)> 0

"No haga caso de los directorios actuales y relacionados.

Si (DirName & lt;> ".") Y (DirName & lt;> "..") A continuación,

'Buscar directorio con la comparación bit a bit.

Si GetAttr (ruta y DirName) Y vbDirectory

Entonces

dirNames(nDir) = DirName

DirCount = DirCount + 1

NDIR = 1 + Ndir

ReDim Preserve dirNames (NDIR)

Terminara si '

directorios.

sysFileERRCont:

Terminara si

DirName = Dir () 'Obtiene la siguiente subdirectorio.

Lazo

'Buscar a través de este directorio.

Filename = Dir (ruta y SearchStr, O vbNormal

vbHidden O _ vbSystem

Or vbReadOnly Or vbArchive)

Mientras que Len (nombre del archivo) & lt;> 0

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

FileCount = 1 + FileCount

Filename = Dir () 'Obtener el archivo siguiente.

Encaminarse a

Para Cada Text1.Text como secuencia En

My.Computer.FileSystem.GetFiles (_

My.Computer.FileSystem.SpecialDirectories.MyDocuments, _

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

Listbox.Items.Add (Text1.Text)

Siguiente

Dim SearchPath As String, FindStr As String

Dim FileSize As Long

Numfiles Dim As Integer, NumDirs As Integer

Findstr = Text1.Text

FileSize = FindFiles (SearchPath, findstr, numfiles,

NumDirs)

Text3.Text = NumFiles & " Files found in " & NumDirs

1 & _

" Directories"

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