You could read the file names and dates into a disconnected recordset and sort that by date:
Set fso = CreateObject("Scripting.FileSystemObject")
Set list = CreateObject("ADOR.Recordset")
list.Fields.Append "name", 200, 255
list.Fields.Append "date", 7
list.Open
For Each f In fso.GetFolder("C:\some\where").Files
list.AddNew
list("name").Value = f.Path
list("date").Value = f.DateLastModified
list.Update
Next
list.MoveFirst
Do Until list.EOF
WScript.Echo list("date").Value & vbTab & list("name").Value
list.MoveNext
Loop
list.Sort = "date DESC"
list.MoveFirst
Do Until list.EOF
WScript.Echo list("date").Value & vbTab & list("name").Value
list.MoveNext
Loop
list.Close