http://dieseyer.de • all rights reserved • © 2011 v11.4

'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

http://dieseyer.de • all rights reserved • © 2011 v11.4