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