كيف عمل الترتيب فى عرض الملفات حسب التاريخ

كيف عمل Array للملفات الموجودة حسب التاريخ اى كيف ترتيب هذه الملفات حسب التاريخ وهذا هو الكود اللازم لعرض هذه الملفات الموجود داخل المجلد

Function ShowFileList2(folderspec)
Dim fso, f, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
img="": edt=0
GetExt = fso.GetExtensionName(folderspec & "" & f1.name)
if lcase(getext) = "mdb" then img = "imgsaccess.jpg"
if lcase(getext) = "asp" then img = "imgsasp.jpg":edt=1
if lcase(getext) = "xls" then img = "imgsexcel.jpg"
if lcase(getext) = "exe" then img = "imgsexe.jpg"
if lcase(getext) = "frm" then img = "imgsfrm.jpg"
if lcase(getext) = "htm" or lcase(getext) = "html" then img = "imgshtm.jpg":edt=1
if lcase(getext) = "txt" then img = "imgstext.jpg":edt=1
if lcase(getext) = "pdf" then img = "imgspdf.gif"
if lcase(getext) = "zip" then img = "imgswinzip.gif"
if lcase(getext) = "doc" then img = "imgsword.jpg"
if lcase(getext) = "ppt" then img = "imgspower.gif"
if img = "" then img = "imgsno.jpg"
'====================================================
dim conn , sql , rs 
Set conn = Server.CreateObject("ADODB.connection")
conn.Open "DBQ=" & Server.Mappath("SEARCH.MDB") & ";Driver={Microsoft Access Driver (*.mdb)};"
sql=" select owner ,filname,DateAdded from owner ORDER BY DateAdded DESC"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, conn
'=========================================================
s = s & "[trrrrr]" 
s = s & "" 
if d= "admin" then s = s & ""  else
s = s & "[/trrrrr]" 
s = replace(s,"","")
Next
Response.Write s
End Function

كيف اعمل sort للوقت او التاريخ للمجموعه الملفات :confused::(