Option Explicit

Const adDate = 7
Const adVarChar = 200


Dim strFolder

Dim objFSO
Dim objFile


strFolder = "C:\Temp"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strFolder) Then
    With WScript.CreateObject("ADODB.Recordset")
        With .Fields
            .Append "Path",             adVarChar, 2^15 - 1
            .Append "DateLastModified", adDate
        End With
        
        .Open
        .Sort = "DateLastModified DESC"
        
        For Each objFile In objFSO.GetFolder(strFolder).Files
            .AddNew Array("Path", "DateLastModified"), Array(objFile.Path, objFile.DateLastModified)
        Next
        
        .MoveFirst
        
        Do Until .EOF
            With .Fields
                WScript.Echo .Item("DateLastModified").Value, vbTab, .Item("Path").Value
            End With
            
            .MoveNext
        Loop
        
        .Close
    End With
Else
    WScript.Echo "Can't find folder [" & strFolder & "]"
End If

WScript.Quit 0