[OSArev]

Может подойдёт? Попробуй...

Код:

strFolder="ПУТЬ_К_ПАПКЕ"
dtCutOff=DateAdd("n", -25, Now)

Set objFSO=CreateObject("Scripting.FileSystemObject")
Set objFolder=objFSO.GetFolder(strFolder)
WScript.Echo "Проверка модифицированных файлов ранее " & dtCutoff & Chr(10) &_
              "в папке " & strFolder & "."
Set colFiles=objFolder.Files
For Each file In colFiles
    If file.DateLastModified < dtCutoff Then WScript.Echo file.name 
Next