El siguiente codigo para buscar archivos lo encontre en el foro y me fue de mucha ayuda en varias macros, pero sera posible incorporar algunas lineas de codigo para que tambien busque al interior de las carpetas que halle en la ruta ActiveWorkbook.Path ??
De antemano gracias por su valiosa ayuda
- Código: Seleccionar todo
Sub Inv_docs()
Dim CarpetaBusqueda As String
Dim Ruta As String
Ruta = ActiveWorkbook.Path
CarpetaBusqueda = Ruta
Set BuscaArchivo = Application.FileSearch
With BuscaArchivo
.LookIn = CarpetaBusqueda
.Filename = "*.doc" 'podemos buscar una extencion determinada
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Hoja1.Cells(i + 1, 1) = .FoundFiles(i)
Next i
Else
MsgBox "No se encontró ningún archivo."
End If
End With
End Sub
Salu2
Danlev
