Sub ListarArchivos()

Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer

'Crear el objeto FileSystem Object
Set objFSO = CreateObject("Scripting.FileSystemObject")

'Definir la ruta dela carpeta
Ruta_Carpeta = Sheets("inicio").Range("c5").Value

Set objFolder = objFSO.getfolder(Ruta_Carpeta)

'Definir donde vamos a listar los archivos y sus propiedades
Sheets("lista archivos").Select
Columns("A:D").ClearContents

'Escribir el For Each que me permite recorrer cada uno de los archivos dentro de la carpeta
i = 2
    For Each objFile In objFolder.Files
        Cells(1, 1) = "Nombre Archivos"
        Cells(1, 2) = "Tamaño"
        Cells(1, 3) = "Fecha de Creación"
        Cells(1, 4) = "Fecha de Modificación"
        Cells(i, 1) = objFile.Name
        Cells(i, 2) = objFile.Size
        Cells(i, 3) = objFile.DateCreated
        Cells(i, 4) = objFile.DateLastModified
        
        i = i + 1
    
    Next

'Liberar memoria

Set objFolder = Nothing
Set objFSO = Nothing

MsgBox "Se listaron todos los archivos de la carpeta seleccionada", vbInformation, "Macro Listar Archivos"


End Sub