Sección de códigos , trucos y ejemplos para visual basic

463 - Buscar en vba archivos de Office

Objeto FileSearch de vba para buscar facilmente archivos de Office y otros tipos en un directorio específico

Para el ejemplo seguir los siguientes pasos

Se creará un formulario en Excel que listará los archivos de Office ( cualquier tipo: word, excel etc.. ) en un control ListBox

1 - Abrir un nuevo libro de Excel

2 - Agregar en la hoja un Control Commandbutton ( desde el cuadro de controles - menú ver - barra de herramientas )

3 - Abrir el Visual basic Editor desde el menú herramientas y agregar un UserForm

4 - Al userForm añadir los siguientes controles : ( un textbox1, un Listbox1 y un Commandbutton1 )

Hacer doble clic sobre un área vacia del userform para escribir el código de búsqueda

Código fuente

Option Explicit ' Botón para comenzar a buscar ''''''''''''''''''''''''''''''''''''''''''''' Private Sub CommandButton1_Click() If TextBox1.Text <> "" Then If Len(Dir(Trim(TextBox1.Text))) Then ' Buscará todos los archivos de Office Call Buscar(TextBox1.Text, msoFileTypeOfficeFiles) Else MsgBox "El directorio no es correcto", vbExclamation, "error" End If Else MsgBox "Debe ingresar un directorio en el textbox", vbExclamation End If End Sub ' función para buscar los documentos de Office '''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Buscar( _ Path As String, _ Tipo As MsoFileType) On Error GoTo ErrorSub Dim i As Long With Application ' desactualiza la actualización para que sea mas rápido .ScreenUpdating = False .DisplayAlerts = False .EnableEvents = False End With ' propiedades del objeto FileSearch With Application.FileSearch ' nueva búsqueda .NewSearch ' path inicial de búsqueda .LookIn = Path ' el tipo de documento Office, word, otros : _ ver el valor de las constantes .FileType = Tipo '.SearchSubFolders ' para buscar en sub carpetas _ en este caso solo busca en un solo nivel ListBox1.Clear ' ejecuta la búsqueda If .Execute > 0 Then ' recorre la colección de archivos ( si es que hay ) For i = 1 To .FoundFiles.Count ' cantidad de archivos ListBox1.AddItem .FoundFiles(i) Next End If End With ' vuelve a habilitar la actualización del Excel With Application .ScreenUpdating = True .DisplayAlerts = True .EnableEvents = True End With ' error Exit Sub ErrorSub: MsgBox Err.Description, vbCritical, "error: " & Err.Number End Sub

Por último, desde el editor de vba, hacer doble clic en la hoja1 para abrir el módulo:

Colocar lo siguiente código para el commandbutton , y poder abrir el userform desde la hoja1

Private Sub CommandButton1_Click()

    UserForm1.Show

End Sub

Descargar ejemplo

Nota: la función solo busca en un solo nivel de directorios. Para indicar todos los niveles, establecer el valor : true en la propiedad searchSubFolders.

Application.FileSearch.SearchSubFolders =True

También , en el ejemplo se realiza la búsqueda de cualquier documento de office.

Para poder diferencia el tipo de archivo, indicarlo mediante las siguientes constantes en la propiedad FileType:

msoFileTypeAllFiles : cualquier tipo
msoFileTypeDatabases : de base de datos
msoFileTypeExcelWorkbooks ; Libros de Excel
msoFileTypePowerPointPresentations : de PowerPoint
msoFileTypeWordDocuments : Documentos de Word
msoFileTypeTemplates : plantillas
msoFileTypeOfficeFiles : cualquier documento de Office

Para buscar un archivo específico, indicar en la propiedad FileName, el nombre del fichero , antes de llamar al método Execute que es el comienza a buscar

Application.FileSearch.Filename = "c:\unArchivo.xls"

Vb 6.0 - Relacionados

Vb.net - Relacionados

Buscar en visual basic.net

Buscar en Recursos vb