Оцените код скрипта автоматической печати файлов

#1 13 апреля 2014 в 09:28

нужен скрипт автоматической печати файлов из определенной папки, который сидит в памяти и отслеживает появление НОВЫХ файлов в папке и отправляет их на печать...

нашел в тернете варианты:

Надо скопировать код скрипта и сохранить его в любом текстовом редакторе в файл формата vbs (Печать.vbs к примеру)

 
ption Explicit : Dim objWord, objDoc, wssh, objFS, objPath, objFolder, objItem, ques
Const wdDoNotSaveChanges    =  0
Const wdPromptToSaveChanges = -2
Const wdSaveChanges         = -1
 
Set wssh = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objPath = objFS.GetFolder("d:\doc\") 'Папка, из которой производится печать
 
Do
  PrintDelInFolder objPath
  WScript.Sleep 1000
  If Minute(Time)=0 and Second(Time)<5 then 'условие проверки времени для вывода на экран вопроса о завершении своей работы
     ques=wssh.Popup("Не желаете завершить работу скрипта автопечати документов?"&vbCrLf&"Следующий запрос будет через час...",, "Скрипт автопечати | Lucky edited", 36)
     if ques=6 then WScript.Quit
     WScript.Sleep 5000
  End If
Loop
 
Sub PrintDelInFolder(objFolder)
    For Each objItem In objFolder.Files
        If StrComp(objFS.GetExtensionName(objItem.Name), "doc", vbTextCompare) = 0 Then
            With WScript.CreateObject("Word.Application")
                Set objDoc = .Documents.Open(objItem.Path, False, True, False)
                objDoc.PrintOut False
                .Quit
                Set objDoc = Nothing
                WScript.Sleep 500
                objFS.DeleteFile objItem.Path ',true 'если надо удалять и доки с атрибутом "Только чтение" - уберите символ ' перед true
            End With
        End If
    Next
End Sub
 
Set objWord = Nothing
WScript.Quit 0
 
Стремление - залог успеха

еще нашел здесь нечто похожее
habrahabr.ru/sandbox/66926/

 
;Автоматическая печать PDF-файлов, появляющихся в определенной папке
 
;Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
$gWatchFolder = "o:\pdfPrint\"
 
;Основной цикл
While true
   Local $search = FileFindFirstFile($gWatchFolder & "*.pdf")
   If @error Or ($search = -1) Then ContinueLoop
   Local $file = FileFindNextFile($search) 
   PrintFile($gWatchFolder & $file)	  
   Sleep(1000)
WEnd
 
;Функция печати конкретного pdf-файла
Func PrintFile($pFileName)
 
   $pNewFileName = StringReplace( $pFileName, ".pdf", "_.pdf")
 
   ;Ищем Фоксит ридер
   If FileExists("c:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe") Then
      $s = """c:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe"" /p """ & $pNewFileName & """"
   ElseIf FileExists("c:\Program Files (x86)\Foxit Software\Foxit Reader\Foxit Reader.exe") Then
      $s = """c:\Program Files (x86)\Foxit Software\Foxit Reader\Foxit Reader.exe"" /p """ & $pNewFileName & """"
   Else
      MsgBox(4096, "Не установлена программа Foxit Reader!", "Foxit Reader.exe does NOT exists")
      Exit
   EndIf
 
   ;Попытаемся переимновать файл, чтобы определить, дозаписан ли он до конца.
   If FileMove($pFileName, $pNewFileName) Then
 
      ;запускаем печать pdf через Фоксит Ридер и ждём, когда процесс завершится
      Local $PID = Run($s)
      ProcessWaitClose($PID)
 
      ;удаляем файл, чтобы он повторно не печатался
      If Not FileDelete($pNewFileName) Then
         msgbox(1,"","Не удалось удалить файл " & $pNewFileName & " ! Зовите системного администратора!")
         Exit
      EndIf
 
   EndIf
 
EndFunc