[OSArev]

Вот так ещё можно.

Код:

myDateTime = Right("0" & Day(Date), 2) & Right("0" & Month(Date), 2) & Year(Date)
dtCutOff=DateAdd("n", -25, Now)

 File="KPK"&myDateTime&".txt"
 filespec="C:\СВОЙ\ПУТЬ\К\ПАПКЕ\"&file
set fso=createobject("scripting.filesystemobject") 
set f=fso.GetFile(filespec) 
    If f.DateLastModified < dtCutoff Then
 
' Вместо WScript.Echo делай свою задачу.

WScript.Echo "Файл " &f.name& " изменён раньше "&dtCutOff
End if 
set f=nothing 
set fso=nothing