Hola a todos
He tenido la suerte de que un amigo me ha pasado un código para hacer
busquedas selectivas dentro del ordenador. No conozco la fuente, pero le doy
las gracias a quien haya hecho esta gran utilidad.
Me gustaría añadir tres cosas, pero no se como hacerlo:
1) Que escribiera en otra columna el "peso" del archivo
2) Que escribiera en otra columna la fecha de la última modificación
3) Si se puede pedir la ruta (LookIn)con un imputbox para no tener que
modificar a mano el codigo VBA
Gracias anticipadas
'procedimiento VerBúsquedaDeArchivosEnHoja
'El siguiente procedimiento utiliza la propiedad FileSearch del objeto
Application para efectuar una búsqueda de los ficheros con extensión .XLS, y
presenta los ficheros (si los hay) en Hoja1:
Sub VerBúsquedaDeArchivosEnHoja()
Dim fsB As FileSearch
Dim n As Long
Set fsB = Application.FileSearch
With fsB
.NewSearch
.LookIn = "c:\Mis documentos" 'Directorio donde comenzará la
búsqueda, (se puede cambiar por otros p.e. -> c:/;d:/, etc)
.SearchSubFolders = True 'Si se buscará en los subdirectorios
.Filename = "*.xls" 'Patrón a buscar (p.e. otros:
*.xls;*.doc;*.txt;*.jpg; etc...
If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then
ActiveSheet.Range("b1") = "Ubicación"
For n = 2 To fsB.FoundFiles.Count
Worksheets("Plantilla").Cells(n, 2) = .FoundFiles(n) 'hoja
donde va a escribir
Next n
End If
End With
Set fsB = Nothing
End Sub
'Si la búsqueda se hace también en los subdirectorios (.SearchSubFolders True) los ficheros pueden no presentarse correctamente ordenados por su
nombre.
Últimos mensajes - Powered by IBM
Palabras claves
Hacer una pregunta
Siga el debate
Tengo una respuesta
Busqueda sugerida
Miércoles 19 de febrero - 00:15
Registrar
Leer las respuestas