'v5.9********************************************************
' File:   dateiliste-nach-datum2.vbs
' Autor:  "TheDude"
'         dieseyer.de
' 
' Zeigt die Dateien eines Ordners nach Änderungsdatum sortiert an.
'************************************************************

' "TheDude" : http://source-center.de/forum/showthread.php?postid=30837#post30837

Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Dim fso      : Set fso = CreateObject("Scripting.FileSystemObject")
Dim pf       : Set pf = fso.GetFolder("c:\").SubFolders
Dim datalist : Set datalist = CreateObject("ADOR.Recordset")

Dim f, Txt

datalist.Fields.Append "p",200,255
datalist.Fields.Append "lm",200,255
datalist.Open

For Each f In pf
	datalist.AddNew Array("p","lm"), Array(f.path,DateDiff("s","01/01/1970 00:00:00",f.DateLastModified))
Next

datalist.Sort = "lm DESC"

Do While Not datalist.EOF
'	Txt = Txt & datalist("p")  & vbTab & datalist("lm") & vbCRLF
	Txt = Txt & datalist("lm") & vbTab & datalist("p")  & vbCRLF
	datalist.MoveNext 
Loop

MsgBox Txt, , WScript.ScriptName