Y necesitás hacer el si o si el recordset?
Pregunto porque una vez hice lo mismo, levantar los datos de los archivos de una carpeta mediante FSO y mandarlos a una recordset para poder ordenarlos más facilmente, pero sin necesidad de guardarlos en una tabla.
Como sea, necesitás una conexión a la base de datos y luego hacer el insert dentro del for...next:
Código:
...
'declarás el objeto conexion
...
'Now let's find all the files in the folder
For Each File In objFolder.Files
'hide any file that begins with the character to exclude
If (Left(File.Name, 1)) <> Exclude Then
rsFSO.AddNew
rsFSO("Name") = File.Name
rsFSO("Type") = File.Type
rsFSO("DateCreated") = File.DateCreated
rsFSO("DateLastAccessed") = File.DateLastAccessed
rsFSO("DateLastModified") = File.DateLastModified
rsFSO("Size") = File.Size
rsFSO.Update
SQL = "INSERT INTO tabla (nombre, tipo, creado, ult_acceso, ult_modific, tamaNIo) VALUES ('" & File.Name & "', '" & File.Type & "', '" & File.DateCreated & "', '" & File.DateLastAccessed & "', '" & File.DateLastModified & "', '" & File.Size & "')"
ObjetoConexion.Execute(SQL)
End If
Next
...