Тема: VBS: ограничение времени работы скрипта
Сделал себе маленький скрипт чтоб запускал команды обработки в пятницу после 21-00, а останавливался в понедельник после 10-00. Все работает, просто подумал может старожилы предложат конструкцию по-красивее.
input = "e:\input\" 'папка input
Set objFSO = CreateObject("Scripting.FileSystemObject")
While true
Vizov
Wend
Sub Obrabotka(FolderPath)
'Получаем объектную модель текущего каталога
Set Folder = objFSO.GetFolder(FolderPath)
'Перебираем все файлы в текущем каталоге
For Each File in Folder.Files
'команды обработки
If Weekday(date, 0) =1 And Hour(time) => 10 Then Vizov 'прекращаем обработку в понедельник в 10-00
Next
End Sub
Sub Vizov
If Weekday(date, 0) =5 And Hour(time) => 21 Then 'начинаем обработку в пятн в 21-00
Obrabotka input
Else
WScript.Sleep 1800000 'спим 30 минут
End If
End Sub
