|
|
|
| Задача - через Call Shell..... запустить CMDшный скрипт по всем записям из таблицы.
Скрипт не выполняется мгновенно, и поэтому если из рекорсета на каждой записи запустить этот скрипт, то система просто умирает от такого количества одновременно запущенных скриптов.
Поэтому надо ставить задержку перед каждым запуском. Например 0,2сек.
Обычно небольшие задержки я выставляю таким кодом:
t = Now()
Do While DateDiff("s", t, Now) < 1
Loop
И то, что такой цикл нехило нагружает систему в течении 1й секунды меня не напрягает.
Но в данном случае так делать нельзя, потому как количество записей большое, и суммарно по времени это займёт несколько часов.
Возможно есть какая-нибудь простая функция, которая позволит сказать что "здесь пауза на 0,2 сек"?
Заранее спасибо | |
|
|