|
TrackingDirAndSendFilePrint.vbs -Слежение+отправка на печать
|
|
| Andrey_A | Дата: Понедельник, 29.10.2012, 10:04 | Сообщение № 1 |
Генералиссимус
На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7186
Награды: 143
Репутация: 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
Город: Сочи, Хоста
Сообщений: 7186
Награды: 143
Репутация: 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\" Quote KillProcess("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
Город: Сочи, Хоста
Сообщений: 7186
Награды: 143
Репутация: 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)
---------------------------------------------
например попыткой его переименования, если переименовывается то печатать, нет, ждать
|
| |
| |
