Classic - filer vist med sidste fil først

Set fso = CreateObject("Scripting.FileSystemObject")
Set dir = fso.GetFolder(".")
Dim allf(1000)
n = 0
For Each f In dir.Files
    allf(n) = f.Name
    n = n + 1
Next
Set dir = Nothing
Set fso = Nothing
For i = n-1 To 0 Step -1
    WScript.Echo allf(i)
Next