#0
by WiFi
Можно ли создать событие WMI на появления файла в определенной папке? Например следующим запросом: "SELECT * FROM ____InstanceCreationEvent WITHIN 10 WHERE TargetInstance ISA 'CIM_DataFile' AND TargetInstance.Path='C:\1C\AdminUse\Files\'"
#1
by Билли Г
Можно, только запрос надо видоизменить, посуди сам - раз файла ещё нет, то условие на TargetInstance.Path всегда будет False... Надо что-то вроде этого: SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE Targetinstance ISA 'CIM_DirectoryContainsFile' and TargetInstance.GroupComponent= 'Win32_Directory.Name=""C:\\1C\\AdminUse\\Files""'
#4
by smaharbA
Я хотел тебе только дать туже ссылку, а вот так лучче вместо мессаги код, можно в цикле еще чтото делать (код почти тотже но обрати внимание на Sink_ :) ) strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\" & _ strComputer & "
ootcimv2") Set objSink = WScript.CreateObject("WbemScripting.SWbemSink", "Sink_") 'CIM_DirectoryContainsFile' call objWMIService.ExecNotificationQueryAsync (objSink, "SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _ & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _ & "TargetInstance.GroupComponent= " _ & "'Win32_Directory.Name=""c:\\scripts""'") MsgBox "Остановить" 'если нажать ОК то больше небудет отслеживать, это для завершения этого скрипта Sub Sink_OnObjectReady(objEvent, objAsyncContext) MsgBox objEvent.TargetInstance.PartComponent End Sub
#6
by PVasili
Это нужно в 1С? Если да то все гараздо проще, если нет то и cmd(bat) файл проверит и вернет код возврата...
#7
by WiFi
спасибо за код ;) Этот вариант мне даже больше нравится. Вообщето нет, не из 1С. А какой вариант ты предлагаешь? ОбработкаОжидания? Можно конечно и батником запускать, я лично ничего против не имею. А как ты его будешь запускать каждые 10 секунд? ;)
Тэги:
Ответить:
Комментарии доступны только авторизированным пользователям
Похожие вопросы 1С
- Как загрузить из Excel в 1с и создать приходную на основание этих данных ?
- Как создать новую (чистую) конфигурацию.
- V8.новый СОМОбъект("v8.Apllication").Сообщение - "Создать новую базу ?"
- Запись текстового файла - служебные символы в начале файла. Как убрать?
- Подписка на событие. Как отловить событие другому пользователю?
- Создать фабрику на основе XSD без файла
- Внешнее событие - сканер ШК - что не так делаю - событие срабатывает два раза.
- Ошибка открытия файла: Чтение данных из файла обмена завершено с ошибками!
В этой группе 1С
- ЗуП как правильнее вести ВР "выслуга лет" ?
- Как программно присоединить файл к док. ЭлекторнноеПисьмо в УТ 8.0 10.2?
- Срез последних в запросе к регистру сведений....
- Как с помощью компоненты TOYSQL подключится к другой базе.
- Построитель отчета - как вывести столбцы фиксированной длины
- Как быстро восстановить работу пользователей с 1с если сгорела мать..?
- Форма списка и форма элемента справочника на одной форме?
- Определение типа значения объекта в запросе
- продажа собственной фирме
- Как восстановить журнал документов?
- Проблема с ImageCol.bmp
- ПОМОГИТЕ ОШИБКА : '' is not a valid integer value при проведении документа
- Не передается параметр в методе "ОткрытьФорму()"
- Запрет изменения EXCEL файла из 1с
- Как программно поставить признак модифицированности формы?
- как прикрутить к 1С картридер?
- OFF: ODBC соединение с MySQL
- конвертация данных: можно ли оптимизировать правила?
- Как программно вставить колонку в печатную форму?
- КД: не сохраняется настройка выгружать по ссылкам