Подскажите прграмму оповещения о новых файлах #536191

На сервере расшарена папка, в которой куда подкаталогов. Пользователи кидают файлы обчычно в соответствующий каталог. Нужна программка оповещения, которая сообщает о новом файла в папке определенного расширения. Поиск ничего не дал.

дельфи нет

там есть готовая компонента

1С =)

регламентное задание в 1С

nnCron, xStarter и т.д. и т.п. Нужно именно оповестить? 2003 Сервер R2 позволяет запретить запись....

Тотал Коммандер. Сортировка: Дата+Расширение. и нажать CTRL+B. Не оповещение, конечно. но все наглядно видно.

"Есть куда подкаталогов" = "Есть куча подкаталогов"...

>>нажать CTRL+B!!!!

Тотал Командер не подходит, слишком долго выводит сортирувку файлов по дате добавления

желательно оповещение не в 1с, а программкой, сидящей в трее

господа, кто-нить хоть сабж прочитал, нужно оповещение о файлах определенного формата, а не всех подряд, например только об архивах rar

да, нужно только оповестить

врешь, вагон ссылок.

мне нужен не мониторинг шар, а оповещалка о новых файлах определенного расширения

к абрахамсу обратись. он мне как то помогал скрипт нарисовть

Option Explicit Dim strComputer       ' Имя компьютера Dim strNamespace      ' Имя пространства имен WMI Dim objService        ' Объект SWbemServices     Dim strResult         ' Результат запроса Dim objSink           ' Объект SWbemSink Dim bDone             ' Переменная-флаг выхода из цикла strComputer = "." ' Имя компьютера strNamespace = "RootCIMV2" ' Подключаемся к пространству имен Set objService = GetObject("WinMgmts:\" & strComputer & "" & strNamespace) ' Создаем объект SWbemSink Set objSink = wscript.CreateObject("WbemScripting.SWbemSink", "Sink_") ' Выполняем метод ExecMethodAsync_ objService.ExecNotificationQueryAsync objSink, "SELECT * FROM cim_datafile where path='\Scripts\' and drive='c:'" ' Выводим сообщение о запуске сканера Wscript.Echo " Запущен сканер создания файла в папке C:Scripts" ' Приостановливаем сценарий до завершения выполнения запроса While Not bDone      WScript.Sleep 1000 Wend ' Процедура-обработчик события OnObjectReady объекта sWbemSink Sub Sink_OnObjectReady(oOutParams, oContext)  ' Формирум строку для вывода          strResult = Date & " " & Time & vbCrLf &_  "Создан файл: "      ' Выводим результат на экран  Wscript.Echo strResult  bDone = True         End Sub '************************* Конец ***********************************