Advertisement
Guest User

Untitled

a guest
Oct 16th, 2012
566
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Автоматическая печать знакомых системе файлов, появляющихся в определенной папке
  2.  
  3. Set gFSO = CreateObject("Scripting.FileSystemObject")
  4. Set gShell = CreateObject("WScript.Shell")
  5.  
  6. 'Папка, в которой скрипт ждет файлы. К ней есть доступ по сети на запись
  7. gWatchFolder = "G:\PrintME\"
  8. 'Основной цикл
  9. While true
  10.  Set lFolder = gFSO.GetFolder(gWatchFolder)
  11.  Set lFiles = lFolder.Files
  12.  For Each lFile In lFiles
  13.   PrintFile(gWatchFolder & lFile.Name)
  14.  Next
  15.  WScript.Sleep(1000)
  16. WEnd
  17.  
  18. 'Функция печати конкретного файла
  19. Sub PrintFile(pFileName)
  20.  'Ждем некоторе время (а вдруг файл большой, ещё не записался)
  21. WScript.Sleep(10000)
  22.  s = """c:\!bin\classExec.exe"" """ & pFileName & """ --action print"
  23.  Call gShell.Run(s,0,true)
  24.  'Некоторые файлы могут печататься долго, поэтому методом вылавливаем-с его освобождение тупым повтором удаления
  25. While gFSO.FileExists(pFileName)
  26.  WScript.Sleep(5000)
  27.  gFSO.DeleteFile(pFileName)
  28. WEnd
  29. End sub
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement