[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Andrey_A, ХарВик, chip642  
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
Награды: 0
Репутация: 0
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
Награды: 0
Репутация: 0
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
Награды: 0
Репутация: 0
Здравствуйте, а можно ли дополнить данный скрипт, чтобы он проверял полностью ли записался файл в папке, если он например копируется из сети, если возможно выложите его с данным функционалом, заранее спасибо)

Добавлено (15.12.2014, 12:20)
---------------------------------------------
например попыткой его переименования, если переименовывается то печатать, нет, ждать

 
  • Страница 1 из 1
  • 1
Поиск:

Интеллектуальные права и отказ от ответственности