Muchas gracias por el ejemplo, mientras tanto lo estaba realizando así:
<%
Dim fso, Carpeta, Fichero
Dim archivos(100)
'Creamos el objeto file system object
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'Seleccionamos la carpeta donde se encuentra el archivo
Set Carpeta = fso.GetFolder("c:\My dir")
Dim num_dias(100)
Dim fechas(100)
For i = 0 to 100
num_dias(i) = 32
fechas(i) = "-"
archivos(i) = "-"
Next
fecha_actual = Now
i = 1
For Each Fichero in Carpeta.Files
fecha_creado = Fichero.DateCreated
dias = DateDiff("d",fecha_creado, fecha_actual)
if dias <= 31 then
num_dias(i) = dias
archivos(i) = fichero.name
fechas(i) = fecha_creado
i = i + 1
end if
Next
total = i
Dim j, k
Dim AuxA, AuxD, AuxF
For k = 1 to total-1
For j = 1 to total-k
if num_dias(j) > num_dias(j+1) then
AuxD = num_dias(j)
AuxA = archivos(j)
AuxF = fechas(j)
num_dias(j) = num_dias(j+1)
archivos(j) = archivos(j+1)
fechas(j) = fechas(j+1)
num_dias(j+1) = AuxD
archivos(j+1) = AuxA
fechas(j+1) = AuxF
end if
Next
Next
Es algo bastante primitivo pero me funcionó, de todas formas voy a probar el código que me dieron para ver cual se ejecuta más rápido.
Gracias
