Source Code for Me (s-c.me)

Allows you to paste souce code to blogs! Adapted for Twitter! Here is Search Form in case you missed your code.
Tags: Php,
Copy Source | Copy HTML
       1:  'On Error Resume Next
    'Автоматическая печать PDF-файлов, появляющихся в определенной папке
       2:  'Глобальные Ð¿ÐµÑ€ÐµÐ¼ÐµÐ½Ð½Ñ‹Ðµ
    Set gFSO          = CreateObject("Scripting.FileSystemObject")
    Set gShell        = CreateObject("WScript.Shell")
    'Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
       3:  gWatchFolder = "E:\master\printer\"
    'Основной Ñ†Ð¸ÐºÐ»
    While true
     Set lFolder = gFSO.GetFolder(gWatchFolder)
     Set lFiles  = lFolder.Files
     For Each lFile In lFiles
      PrintFile(gWatchFolder & lFile.Name) 
     Next
     WScript.Sleep(1)
    WEnd 

    'Функция Ð¿ÐµÑ‡Ð°Ñ‚и ÐºÐ¾Ð½ÐºÑ€ÐµÑ‚ного pdf-файла
    Sub PrintFile(pFileName)
     'Ждем Ð½ÐµÐºÐ¾Ñ‚оре Ð²Ñ€ÐµÐ¼Ñ (пока Ñ„айл Ð´Ð¾ ÐºÐ¾Ð½Ñ†Ð° Ð·Ð°Ð¿Ð¸ÑˆÐµÑ‚ся) 
     WScript.Sleep(3)
     'msgbox(pFileName)
     'Мы (больше) Ð½Ðµ Ð±Ð¾Ð¸Ð¼ÑÑ Ð¿Ñ€Ð¾Ð±ÐµÐ»Ð¾Ð² :Р
     s = """E:\master\foxit\Foxit Reader.exe"" /p """ & pFileName & """"
     'msgbox (s)
     Call gShell.Run(s,0,true)
     gFSO.DeleteFile(pFileName)
     If gFSO.FileExists(pFileName) Then 
      'Мало Ð»Ð¸ Ñ‡ÐµÐ³Ð¾ Ð¼Ð¾Ð¶ÐµÑ‚ ÑÐ»ÑƒÑ‡Ð¸Ñ‚ься, Ð»ÑƒÑ‡ÑˆÐµ Ð¿ÑƒÑÑ‚ÑŒ Ñƒ Ð˜Ð²Ð°Ð½ Ð˜Ð²Ð°Ð½Ñ‹Ñ‡Ð° Ð¿ÐµÑ€ÐµÑÑ‚анет Ð¿ÐµÑ‡Ð°Ñ‚ать, Ñ‡ÐµÐ¼ Ð¾Ð´Ð¸Ð½ Ñ„айл Ð¼Ð½Ð¾Ð³Ð¾ Ñ€Ð°Ð· ÑƒÐ¹Ð´ÐµÑ‚ Ð½Ð° Ð¿Ñ€Ð¸Ð½Ñ‚ер
      'msgbox("Не удалось удалить файл " & pFileName & "! Позвоните Василию по Ñ‚. 123-456)
       4:    WScript.Quit
       5:   'Else
      'Пока не реализовано
       6:    'ToLog("Файл " & lFileName & " ÑƒÐ´Ð°Ð»ÐµÐ½.")
       7:   End If    
       8:  End sub  

Based on Manoli.Net's CodeFormatter. Made by Topbot (c) 2008-2017