Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Автоматическая печать знакомых системе файлов, появляющихся в определенной папке
- 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)
- 'Некоторые файлы могут печататься долго, поэтому методом вылавливаем-с его освобождение тупым повтором удаления
- While gFSO.FileExists(pFileName)
- WScript.Sleep(5000)
- gFSO.DeleteFile(pFileName)
- WEnd
- End sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement