Lista de todos los archivos contenidos en un directorio - Ejemplos de código VBA

Listar todos los nombres de archivo en el directorio

El siguiente código es una subrutina que obtendrá los nombres de todos los archivos que están presentes en una ruta de directorio:

 Sub List_All_The_Files_Within_Path () Dim Row_No As Integer Dim No_Of_Files As Integer Dim kk25 As Integer Dim File_Path As String File_Path = "C: Mis documentos" Row_No = 36 'Enumera todos los archivos en el directorio actual con Application.FileSearch .NewSearch. .Filename = "*. *" .SearchSubFolders = False .Ejecutar No_Of_Files = .FoundFiles.Count For kk25 = 1 To No_Of_Files Worksheets ("Sheet1"). Cells (kk25 + 5, 15) .Value = .FoundFiles (kk25) Siguiente kk25 End With End Sub 

Escribirá los nombres de archivo en Sheet1 en la columna O, comenzando en la fila 36
Descarga el archivo de Excel aquí