Vis fil efter dato fra en mappe

Jeg fandt denne løsning der går ind random og tager en fil i en bestemt mappe.

<%
mappenavn = "MAPPE/"    '<---- Angiv hvilken folder filerne er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
  if InStr(1,"swf,gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
    filList = filList & "," & f.name
  end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

if Right(billedsrc,3) = "swf" then
  'Flash object
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="640" height="350">
  <param name="movie" value="<%=billedsrc%>">
  <param name="quality" value="high">
  <embed src="<%=billedsrc%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="504" height="280"></embed></object>
<%
else
  'Billede fil
  Response.Write "<img src=""" & billedsrc & """>"
end if

Set fs = Nothing
Set files = Nothing
%>

Kan jeg lave det om så den går ind og viser den nyeste fil først og efter 6 sec viser den det næst nyeste i mappen?