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