Ordinare files con FSO

[ubbicom]

Ciao.

Come posso ordinare per data questa serie di files che leggo sul server tramite FSO?:

<%

    Dim fso
    Set fso = Server.CreateObject ("Scripting.FileSystemObject")
    Set dir = fso.GetFolder(Server.MapPath("/cartella/"))

    For Each File In dir.Files    
       Response. Write File.Name & "
"
    Next

    Set fso = Nothing
%>

Grazie