[megaloman]

Вот еще вариант. Скрипт с заданным дискретом опрашивает файл. Если файл устарел, выдаётся сообщение, однако через заданный дискрет опрос повторяется. Если файла нет, выдаётся сообщение, однако через заданный дискрет опрос повторяется Если это сообщение не нужно - закомментируйте. Пути, префикс файла (у Вас KPK), расширение, дискрет опроса, порог устаревания -укажите свои.

Код:

Where = "H:\Delete\"        ' Где файлы
Pref = "Kuku"               ' Префикс файлов
Ext = ".txt"                ' Расширение файлов
DMin = 0.5                    ' Дискрет опроса Минут
OldMin = 25                 ' Порог устаревания файла (минут)

FName = Where + Pref + Mid(CStr(100 + Day(Date)), 2, 2) + Mid(CStr(100 + Month(Date)), 2, 2) + CStr(Year(Date)) + Ext

Set WS = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
L = True


Do While L

    Cont = 0
    Older = DateAdd("n", -OldMin, Now)

    If FSO.FileExists(FName) Then
       DN = FSO.GetFile(FName).DateLastModified
       If DN < Older Then
            Cont = WS.Popup(FName, DMin * 60, "Файл старше " + CStr(OldMin) + " минут", 50)
'''''       Else
'''''            Cont = WS.Popup(FName, DMin * 60, "Файл изменялся " + CStr(DN), 50)
       End If
    Else
        Cont = WS.Popup(FName, DMin * 60, "Файл не найден.", 50)
    End If

    If Cont = 3 Then Exit Do

    If Not (Cont = 4 Or Cont = -1) Then
        WScript.Sleep (DMin * 60 * 1000)
    End If

Loop

При ответе на запрос:
"Повторить"= немедленно переопросить файл .
"Пропустить"=повторить опрос через заданный дискрет
"Прервать" = снять скрипт

Сообщение о том, что файл за разрешенный период изменялся, закомментировано (было нужно для отладки), при необходимости, можете восстановить, убрав ''''.