VPF::Как мониторить создание нового файла в директории

triclosan

Дата 16.5.2011, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 515
Регистрация: 18.8.2006

Репутация: нет
Всего: 12

В определенный момент в рабочей папке создается файл *.temp, мне необходимо это отслеживать каким-либо "заметным способом" - звуковой сигнал поп-ап окно и т.п. Есть ли какие-то прикладные решения? Единственное что пока удалось - заюзать Process Monitor поверх всех окон, но это не очень удобно.

Единственное, что приходит в голову - писать маленькую "приблуду" для решения задачи, но сперва хочу убедиться, что не изобретаю велосипед.

Спасибо.

Akella

Дата 16.5.2011, 22:53 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329

а FileMon из той же серии?

triclosan

Дата 16.5.2011, 23:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 515
Регистрация: 18.8.2006

Репутация: нет
Всего: 12

Цитата(Akella @ 16.5.2011, 22:53

)

а FileMon из той же серии?

Цитата(http://technet.microsoft.com/ru-ru/sysinternals/bb896642)

Примечание: Это средство заменено программой Process Monitor.

Или в FileMon можно настраивать алерты на события?

Akella

Дата 16.5.2011, 23:12 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 35
Всего: 329

если честно, то не уверен

а какие программы ты ещё рассматривал? в гуглу искал?

Добавлено через 1 минуту и 24 секунды
во например, http://www.google.com/search?ie=UTF-8&...61ef59672e467e6

mihanik

Дата 22.5.2011, 20:58 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: нет
Всего: 109

Код


Set objWMIService = GetObject(«winmgmts:» _
    & «{impersonationLevel=impersonate}!\\.\root\cimv2″)
    Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    («SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE » _
    & «Targetinstance ISA ‘CIM_DirectoryContainsFile’ and » _
    & «TargetInstance.GroupComponent= » _
    & «‘Win32_Directory.Name=»"c:\\\\pdfprint»"‘»)
    Set objFSO = CreateObject(«Scripting.FileSystemObject»)
    Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    MyFile = objLatestEvent.TargetInstance.PartComponent
    Set objLatestEvent = Nothing
    MyFile = UCase (MyFile)
    MyFile = Replace(MyFile, «\\», «\»)
    MyFile = Mid (MyFile,InStr(MyFile,»"»")+1, Len(MyFile)-InStr(MyFile,»"»")-1)
    If (InStr ( MyFile, «.PDF»)) = (Len (MyFile)-3) Then
    Set WSHShell = WScript.CreateObject(«WScript.Shell»)
    WshShell.Run «»"C:\Program Files\Foxit Software\Foxit Reader\Foxit Reader.exe»" -p » & «»"» & MyFile & «»"», 1, True
    Set WSHShell = Nothing
    End If
    Set objFSO = CreateObject(«Scripting.FileSystemObject»)
    objFSO.DeleteFile(MyFile)
    Set objFSO = Nothing
    Loop

Этот скрипт ждёт появление файла в директории, потом печатает его, а потом удаляет файл. smile

--------------------

Программистами не рождаются, - это родовая травма...

triclosan

Дата 22.5.2011, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 515
Регистрация: 18.8.2006

Репутация: нет
Всего: 12

mihanik, спасибо, поковыряем!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программное обеспечение \| Следующая тема »