[ASP] I dieci file più vecchi

[SuperMariano81]

ciao a tutti,
ho la necessità di visualizzare, in una pagina asp, i 10 file più vecchi (senza passare da un db)
Ho già fatto lo script per l'ultimo più vecchio (mi confronta la data del file con la data di oggi).
Ora però dovrei prendere i dieci più vecchi e metterli, magari, in un vettore....

che dite?

[dwb]

Questi files dove risiedono?

[SuperMariano81]

sono in una cartella di un web server locale, la stessa della pagina asp.
questo è il codice per prendere l'ultimo file (per data)

<%

Dim FileObject
dim ultimo_file
dim data_ultimo
'#############################
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
dir = "/img"
StrPath = Server.MapPath(dir)

call GetFiles(StrPath)

call GetFolders(StrPath)

Set FileObject = Nothing


Sub GetFiles(strPath)

Set f = FileObject.GetFolder( strPath )
Set fc = f.Files
data_base ="1900/01/01"
data_base = cdate(data_base)

'Response.write "Ci sono " & fc.Count & " files
"
For Each f1 in fc
	if instr(f1.name, "VIS008") then
		if data_file > data_base then 
					ultimo_file_WV= f1.name
					data_ultimo_file062 = f1.datecreated			
	end if
	end if
Next
Set fc = Nothing
Set f = Nothing
End sub

%>