Listar los archivos de un directorio

Hoy trataré de explicar, como obtener el nombre de todos los ficheros existentes en un directorio. Esto nos puede servir para muchas cosas, por ejemplo, para saber existe o no determinado fichero, o para grabar un fichero y que no se grabe con el mismo nombre de otro ya existente. Con independencia de la utilidad que queramos darle, estoy seguro que nos puede ser útil en más de una ocasión.

Para que este macro funcione, tendremos que tener grabado el fichero en nuestro disco duro. El código para devolvernos los ficheros existentes en la misma carpeta donde hayamos grabado el fichero, es el que aparece a continuación. El nombre de los ficheros, lo imprimiremos en la propia hoja de cálculo, aunque podemos imprimirlos en un combobox, por ejemplo:

Sub ficheros_del_directorio() 'Si hay errores, que continúe On Error Resume Next 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Creamos el objeto FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'Informamos de la ruta de donde vamos a obtener 'los ficheros, en este caso, el mismo directorio 'donde tengamos grabado este fichero con el macro ruta = ActiveWorkbook.Path 'definimos dos variables que necesitaremos, 'para recuperar el nombre de la carpeta, y 'los ficheros que haya dentro Set directorio = fso.GetFolder(ruta) Set ficheros = directorio.Files 'escribimos un encabezado en la celda A6 Range("A6").Select ActiveCell = "Ficheros del directorio:" 'lo ponemos en negrita y subrayado ActiveCell.Font.Bold = True ActiveCell.Font.Underline = xlUnderlineStyleSingle 'escribimos los ficheros, a partir de A7 Range("A7").Select For Each archivo In ficheros 'escribimos el nombre del fichero ActiveCell = archivo.Name 'bajamos una fila ActiveCell.Offset(1, 0).Select Next 'Limpiamos los objetos Set fso = Nothing Set directorio = Nothing Set ficheros = Nothing 'Mostramos el procedimiento Application.ScreenUpdating = True End Sub

Si lo que deseamos es escribir los ficheros del directorio, pero sin incluir el nombre del fichero activo, es decir, del fichero desde donde estamos ejecutando el macro -porque por supuesto, al estar en el directorio, se listará-, entonces deberemos cambiar el bucle For Each anterior, por este otro que os incluyo a continuación, y que incorpora un condicional (el resto del código es el mismo, así que me ahorro el copiar y pegar). Esto solo nos servirá si el directorio del cual consultamos los ficheros, es el mismo donde tenemos guardado el fichero que ejecuta el macro, es decir, si se trata del mismo path:

For Each archivo In ficheros 'escribimos el nombre del fichero If archivo.Name <> ActiveWorkbook.Name Then ActiveCell = archivo.Name 'bajamos una fila ActiveCell.Offset(1, 0).Select End If Next

Si lo que deseamos es listar solo los nombres de los subdirectorios existentes en el directorio donde tenemos guardado el fichero activo, entonces el macro que tendremos que utilizar, será este:

Sub subdirectorios_del_directorio() 'Si hay errores, que continúe On Error Resume Next 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Creamos el objeto FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'Informamos de la ruta de donde vamos a obtener 'los ficheros, en este caso, el mismo directorio 'donde tengamos grabado este fichero con el macro ruta = ActiveWorkbook.Path 'definimos dos variables que necesitaremos, 'para recuperar el nombre de la carpeta, y 'los subdirectorios que haya dentro Set directorio = fso.GetFolder(ruta) Set subdirectorios = directorio.subfolders 'escribimos un encabezado en la celda C6 Range("C6").Select ActiveCell = "Subdirectorios del directorio:" 'lo ponemos en negrita y subrayado ActiveCell.Font.Bold = True ActiveCell.Font.Underline = xlUnderlineStyleSingle 'escribimos los subdirectorios ActiveCell.Offset(1, 0).Select For Each subdirectorio In subdirectorios 'escribimos el nombre del subdirectorio ActiveCell = subdirectorio.Name 'bajamos una fila ActiveCell.Offset(1, 0).Select Next 'Limpiamos los objetos Set fso = Nothing Set directorio = Nothing Set subdirectorios = Nothing 'Mostramos el procedimiento Application.ScreenUpdating = True End Sub

Si lo que deseamos es listar los nombres de los subdirectorios y los ficheros existentes en el directorio donde tenemos guardado el fichero activo, entonces el macro que tendremos que utilizar, será este:

Sub ficheros_y_subdirectorios_del_directorio() 'Si hay errores, que continúe On Error Resume Next 'Ocultamos el procedimiento Application.ScreenUpdating = False 'Creamos el objeto FileSystemObject Set fso = CreateObject("Scripting.FileSystemObject") 'Informamos de la ruta de donde vamos a obtener 'los ficheros, en este caso, el mismo directorio 'donde tengamos grabado este fichero con el macro ruta = ActiveWorkbook.Path 'definimos dos variables que necesitaremos, 'para recuperar el nombre de la carpeta, y 'los subdirectorios y ficheros que haya dentro Set directorio = fso.GetFolder(ruta) Set subdirectorios = directorio.subfolders Set ficheros = directorio.Files 'escribimos un encabezado en la celda D6 Range("D6").Select ActiveCell = "Subdirectorios del directorio:" 'lo ponemos en negrita y subrayado ActiveCell.Font.Bold = True ActiveCell.Font.Underline = xlUnderlineStyleSingle 'escribimos los subdirectorios ActiveCell.Offset(1, 0).Select For Each subdirectorio In subdirectorios 'escribimos el nombre del subdirectorio ActiveCell = subdirectorio.Name 'bajamos una fila ActiveCell.Offset(1, 0).Select Next 'a continuación escribimos los ficheros 'pero antes, escribiremos el encabezado ActiveCell = "Ficheros del directorio:" 'lo ponemos en negrita y subrayado ActiveCell.Font.Bold = True ActiveCell.Font.Underline = xlUnderlineStyleSingle 'pasamos a la siguiente fila ActiveCell.Offset(1, 0).Select For Each archivo In ficheros 'escribimos el nombre del fichero ActiveCell = archivo.Name 'bajamos una fila ActiveCell.Offset(1, 0).Select Next 'Limpiamos los objetos Set fso = Nothing Set directorio = Nothing Set subdirectorios = Nothing Set ficheros = Nothing 'Mostramos el procedimiento Application.ScreenUpdating = True End Sub

Desde aquí podéis descargar el fichero de excel, con el ejemplo que os presento en este artículo.