problemas con archivos

[julkion]

Hola a todos
Tengo el siguiente problema, en un directorio donde pueden haber mas de 5000 archivos (muchos mas) me interesa solo tener los nombres del primero que se ingreso y del último que se ingreso, lo trate de hacer de la forma clasica para listar los archivos

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(default_dir)
Set filez = folder.Files
ini=1

For Each listing in filez
if ini=1 then
first_file = listing.name
ini = 0
end if
last_file = listing.name
Next

De esta forma tengo el primero y el ultimo, el problema surge cuando la cantidad de archivos es muy grande el servidor se demora mucho en recorrer todos los archivos del directorio y me manda un error de tiempo.
Estuve buscando una solución donde pueda obtener solos los dos archivos que necesito, sin necesidad de recorrer todo el directorio, pero no encuentro nada....

Ayuda por favor

[dimoito]

¿Por qué no te montas una tabla donde informes del nombre del fichero y la fecha del ingreso?

Luego sólo tendrás que hacer un max() o min() en el Select de dicha tabla.

[julkion]

Pero como obtengo esos datos ¿¿??, los archivos son guardados via ftp en estos directorios....