Te paso un codigo que tengo yo para crear un recordset con los nombres de fichero de un directorio.
Código:
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Fields.Append "FileName", 129, 80
rs.Sort = "FileName desc"
rs.Open
For Each objItem In objFolder.Files
if right(objItem.Name, 5) = "p.jpg" then
cont = cont + 1
rs.addnew
rs.Fields("FileName").Value = objItem.Name
rs.Update
end if
next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing