Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Задачи на bat-файлах 9

Модерирует : KLASS, IFkO

vu1tur (09-01-2011 11:53): лимит страниц, продолжение — http://forum.ru-board.com/topic.cgi?forum=62&topic=22143  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

smirnvlad

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

printall.vbs

Код:
 
  Set WshShell = WScript.CreateObject("WScript.Shell")
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set folder = fso.GetFolder(WshShell.CurrentDirectory)
  Set files = folder.Files
  Set sfiles = CreateObject("System.Collections.ArrayList")
 
  exts = LCase("doc,docx,pdf")
 
  For each folderIdx In files
    name = folderIdx.Name
    extt = Split(name, ".")
    ext = LCase(extt(UBound(extt)))
 
    if InStr(1, exts, ext) > 0 then
      sfiles.add name
    end if
  Next
 
  sfiles.Sort()
 
acrobat = """C:\Program Files\Adobe\Reader 8.0\Reader\AcroRd32.exe"" /n /s /o /h "
WshShell.Run acrobat & ""
 
Set objWord = CreateObject("Word.Application")
  For each name In sfiles
    extt = Split(name, ".")
    ext = LCase(extt(UBound(extt)))
 
    if InStr(1, LCase("doc,docx"), ext) > 0 then
      Set objDoc = objWord.Documents.Open(fso.BuildPath(folder, name))
      objDoc.PrintOut()
      objDoc.Close()
    elseif InStr(1, LCase("pdf"), ext) > 0 then
      acr = acrobat & " /t "
      acr = "cmd /c "" start """" /wait " & acr & """" & fso.BuildPath(folder, name) & """" & " """
      WshShell.Run acr, 7, true
    end if
  Next
objWord.Quit
 

Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 22:50 20-11-2010
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Операционные системы » Microsoft Windows » Задачи на bat-файлах 9
vu1tur (09-01-2011 11:53): лимит страниц, продолжение — http://forum.ru-board.com/topic.cgi?forum=62&topic=22143


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru