[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")

If not FSO.FileExists(filespec) Then
 msgbox "Файл "&filespec&" осутствует!"

 ' msgbox - убрать за ненадобностью

 WScript.Quit

 Else 
set f=fso.GetFile(filespec)
 If f.DateLastModified < dtCutoff Then
 
' Вместо WScript.Echo делай свою задачу.

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