Sub BuscarArchivos()
Dim Directorio As String
Dim NombreArchivo As String
Dim FechaCreacion As Date
Dim FechaModificacion As Date
Directorio = "C:\Directorio\"
NombreArchivo = Dir(Directorio & "*.*", vbDirectory)
Do While NombreArchivo <> ""
If NombreArchivo <> "." And NombreArchivo <> ".." Then
If (GetAttr(Directorio & NombreArchivo) And vbDirectory) = vbDirectory Then
' Es un subdirectorio, llamar a la función de forma recursiva
BuscarArchivos Directorio & NombreArchivo & "\"
Else
' Es un archivo, agregar información a la tabla
FechaCreacion = FileDateTime(Directorio & NombreArchivo)
FechaModificacion = FileDateTime(Directorio & NombreArchivo)
' Agregar información a la tabla de archivos
DoCmd.RunSQL "INSERT INTO TablaArchivos (NombreArchivo, Ubicacion, FechaCreacion, FechaModificacion) VALUES ('" & NombreArchivo & "', '" & Directorio & "', #" & FechaCreacion & "#, #" & FechaModificacion & "#);"
End If
End If
NombreArchivo = Dir()
Loop
End Sub