Option Explicit
Const adDBTimeStamp = 135
Const adVarWChar = 202
Dim FileSystem
Dim WScriptShell
Dim ShellApplication
Dim Recordset
Dim Argument
Dim CommandLine
Set FileSystem = CreateObject("Scripting.FileSystemObject")
Set Recordset = CreateObject("ADODB.Recordset")
Recordset.Fields.Append "Path", adVarWChar, 255
Recordset.Fields.Append "Created" , adDBTimeStamp
Recordset.Fields.Append "LastModified" , adDBTimeStamp
Recordset.Open
For Each Argument In WScript.Arguments
Recordset.AddNew
Recordset.Fields("Path").Value = Argument
Recordset.Fields("Created" ).Value = FileSystem.GetFile(Argument).DateCreated
Recordset.Fields("LastModified" ).Value = FileSystem.GetFile(Argument).DateLastModified
Recordset.Update
Next
' 作成日時順(昇順)でソート
Recordset.Sort = "Created, Path"
' 作成日時順(降順)でソート
'Recordset.Sort = "Created DESC, Path"
' 更新日時順(昇順)でソート
'Recordset.Sort = "LastModified, Path"
' 更新日時順(降順)でソート
'Recordset.Sort = "LastModified DESC, Path"
Recordset.MoveFirst
Do Until Recordset.EOF
WScript.Echo Recordset.Fields("Path").Value & vbCrLf & _
Recordset.Fields("Created").Value & vbCrLf & _
Recordset.Fields("LastModified").Value
Recordset.MoveNext
Loop
Recordset.Close
Set Recordset = Nothing
Set FileSystem = Nothing
WScript.Quit 0VBScriptでファイルの日時順でソートする
何かに使えそうなので、とりあえず作ってみた。下のファイルをsample.vbsなどのファイル名で保存して、それにファイルをドラッグ＆ドロップするとファイルの日時順にソートして出力するサンプル。