проверять наличие фалов в папке можно таким кодом
Код:
Set cF = WScript.CreateObject("Scripting.FileSystemObject").GetFolder("d:\hz").Files
Do While vbTrue
If cF.Count > 0 Then MsgBox "Новые файлы"
WScript.Sleep(5000)
Loop
где
d:\hz путь к требуемой папке, а вот можно ли средствами vbs файл печатать я не знаю
