'Автоматическая печать знакомых системе файлов, появляющихся в определенной папке

Set gFSO = CreateObject("Scripting.FileSystemObject")
Set gShell = CreateObject("WScript.Shell")

'Папка, в которой скрипт ждет файлы. К ней есть доступ по сети на запись
gWatchFolder = "G:\PrintME\"
'Основной цикл
While true
 Set lFolder = gFSO.GetFolder(gWatchFolder)
 Set lFiles = lFolder.Files
 For Each lFile In lFiles
  PrintFile(gWatchFolder & lFile.Name)
 Next
 WScript.Sleep(1000)
WEnd

'Функция печати конкретного файла
Sub PrintFile(pFileName)
 'Ждем некоторе время (а вдруг файл большой, ещё не записался)
 WScript.Sleep(10000)
 s = """c:\!bin\classExec.exe"" """ & pFileName & """ --action print"
 Call gShell.Run(s,0,true)
 'Некоторые файлы могут печататься долго, поэтому методом вилки вылавливаем-с паузу после посылания задания на печать перед удалением исходника
 WScript.Sleep(30000)
 gFSO.DeleteFile(pFileName)
 If gFSO.FileExists(pFileName) Then
  msgbox("Не удалось удалить файл " & pFileName & "! Фигня какая-то, перезапусти скрипт печати")
  WScript.Quit
 'Else
  'Пока не реализовано
  'ToLog("Файл " & lFileName & " удален.")
 End If
End sub