Что нового

Проверка наличия файла с некоторым интервалом

Rouzenrot

Новичок
Сообщения
30
Репутация
0
Здравствуйте!

Есть необходимость проверки наличия определенного файла в папке, и при его нахождении - завершение работы программы.
Пробовал делать через
Код:
While 1
   If FileExists ("C:\Install\scan\scan.txt") Then ProcessClose("connect.exe")
   FileDelete("C:\Install\scan\scan.txt")
WEnd

Оно работает, но после первого срабатывания - грузит процессор на 20-30%.

Прочитал про функцию AdlibRegister. Но, похоже, чего-то я не понимаю. По примеру сделал так:
Код:
AdlibRegister("MyAdlib", 500) ; каждые пол-секунды вызываем функцию MyAdlib
Sleep(3000) ; в течение 3 сек
Func MyAdlib()
      If FileExists ("C:\Install\scan\scan.txt") Then ProcessClose("connect.exe")
   FileDelete("C:\Install\scan\scan.txt")
EndFunc

Она срабатывает один раз, и больше не вызывается.
 

joiner

Модератор
Локальный модератор
Сообщения
3,432
Репутация
599
В первом случае в цикле поставь Sleep(10)
Во втором не хватает цикла для работы скрипта
 
A

Alofa

Гость
Код:
While Sleep(100)
   If FileExists("C:\Install\scan\scan.txt") And ProcessClose("connect.exe") Then FileDelete("C:\Install\scan\scan.txt")
WEnd
 
Верх