Hämta filer från mapp i omvänd ordning

Skulle vilja hämta filer från mapp i omvänd ordning, andvänder denna koden i dag. Nu hämtar den filnamn med låga till höga nummer först sedan i bokstavsordning dvs normalt sorterat i mappar

<%
Dim fs, f, f1, s, sf, mapp
mapp = "filer/"
folderspec = (server.mappath(mapp))
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 In sf
s = s & f1.name
s = s & vbCrLf
Next
set fso=server.createObject("Scripting.FileSystemObject")
set folder=fso.getFolder(server.mappath(mapp))
for each f1 in folder.files
response.write "<A HREF=" & mapp & f1.name & " TARGET = _blank>" & f1.name & "</A>" & "<br>"
next
%>