TrackingDirAndSendFilePrint.vbs -Слежение+отправка на печать
|
|
Andrey_A | Дата: Понедельник, 29.10.2012, 10:04 | Сообщение № 1 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7182
Награды: 141
Репутация: 125
Аверин Андрей
|
Слежение за папкой, при появлении в ней нового файла, он посылается на печать и удаляется...
Доступно только для пользователей
|
|
| |
TePPoPucT | Дата: Понедельник, 29.10.2012, 10:05 | Сообщение № 2 |
Рядовой
На сайте с: 28.10.2012
Город: Уфа
Сообщений: 6
|
Quote (Andrey_A) Не было времени тестировать , на работе, если что позже посмотрю подробнее: Есть небольшая загвоздка.
Если поступает на печать файл в формате *.pdf то скрипт выдает ошибку что не может удалить файл. Адобе ридер надолго блокирует его. Нужно добавить паузу на срабатывание удаления и чтобы в конце скрипта завершался процесс acrord32.exe.
Заранее, спасибо.
|
|
| |
Andrey_A | Дата: Понедельник, 29.10.2012, 10:13 | Сообщение № 3 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7182
Награды: 141
Репутация: 125
Аверин Андрей
|
Quote (TePPoPucT) Нужно добавить паузу на срабатывание удаления и чтобы в конце скрипта завершался процесс acrord32.exe. Попробуйте версию 1.1
|
|
| |
TePPoPucT | Дата: Понедельник, 29.10.2012, 14:08 | Сообщение № 4 |
Рядовой
На сайте с: 28.10.2012
Город: Уфа
Сообщений: 6
|
Andrey_A Все работает отлично, небольшие ошибки вот здесь Quote 'FSO.MoveFile File, "с:\1\" в имени пути-диск надо поменять на C (может там русская "с" стоит), и вот здесь Quote KillProcess("acrord32.exe") как выяснилось - регистр важен имя процесса AcroRd32.exe
Единственный вопрос. Если мне нужно будет добавить еще одну операцию удаления она должна быть вот такого вида Quote Set FSO = CreateObject("Scripting.FileSystemObject") 'FSO.DeleteFile File ' удаляет файл FSO.MoveFile File, "C:\2\" ' если надо перемещает или ее нужно помещать в "Sub"? Если помещать в "Sub" то какие параметры надо задавать? Или же можно указать еще одну директорию через запятую? Просто я пропробовал через запятую и у меня скрипт не захотел отработать, сказал что неверный путь. Дело в том что могут попросить подчищать еще одну директорию.
|
|
| |
Andrey_A | Дата: Понедельник, 29.10.2012, 14:20 | Сообщение № 5 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7182
Награды: 141
Репутация: 125
Аверин Андрей
|
Quote (TePPoPucT) небольшие ошибки вот здесь Подправил
Quote (TePPoPucT) или ее нужно помещать в "Sub"? Если помещать в "Sub" то какие параметры надо задавать? процедура Sub Sink_OnObjectReady начинает отрабатывать когда попадает файл в папку, если вы хотите, чтобы удалялся не только этот файл, но и другой вместе в этом процессе, то надо помещать сюда
Code FSO.DeleteFile File ' удаляет файл FSO.DeleteFile путь\ко\второму\файлу.txt ' удаляет файл 2
если хотите, чтобы они перемещались, то
Code FSO.MoveFile File, "C:\1\" FSO.MoveFile путь\ко\второму\файлу.txt, "C:\2\"
если вдруг, то вот справка) Справка по vbs
|
|
| |
Miks | Дата: Понедельник, 15.12.2014, 12:20 | Сообщение № 6 |
Рядовой
На сайте с: 15.12.2014
Город: Москва
Сообщений: 1
|
Здравствуйте, а можно ли дополнить данный скрипт, чтобы он проверял полностью ли записался файл в папке, если он например копируется из сети, если возможно выложите его с данным функционалом, заранее спасибо) Добавлено (15.12.2014, 12:20) --------------------------------------------- например попыткой его переименования, если переименовывается то печатать, нет, ждать
|
|
| |