Тема: VBScript: Печать всех *.doc из указанной папки
Добрый день.
Возникла задача распечатывать все doc-файлы из указанной папки на принтере. В примерах на форуме есть похожее:
Option Explicit
Const wdDoNotSaveChanges = 0
Const wdPromptToSaveChanges = -2
Const wdSaveChanges = -1
Dim objWord
Dim objDoc
Set objWord = WScript.CreateObject("Word.Application")
With objWord
' .Documents.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles)
Set objDoc = .Documents.Open("C:\Temp\01.doc", False, True, False)
'
'- Метод 1. Печать в фоновом режиме -----------------------------------------
objDoc.PrintOut True ' .PrintOut(Background)
' Здесь, при необходимости, можно делать что-то ещё
Do
WScript.Sleep 500
Loop Until .BackgroundPrintingStatus = 0 ' Ждём окончания фоновой печати
'----------------------------------------------------------------------------
'- Метод 2. Печать напрямую -------------------------------------------------
objDoc.PrintOut False ' .PrintOut(Background)
'----------------------------------------------------------------------------
Set objDoc = Nothing
.Quit wdDoNotSaveChanges ' .Quit(SaveChanges)
End With
Set objWord = Nothing
WScript.Quit 0
Но вот как сделать, чтобы распечатывался не конкретный документ, а все из определенного каталога-у меня пока не получается, VBS только осваивать начал
Помогите пожалуйста, можно и с конкретным прописанным путем, и с возможностью выбора каталога.