Как узнать, что появился новый (изменился) файл в директории

[eteP]

Привет

Есть такая проблема subj.
Ни как не могу найти информацию по этому вопросу.
Перечитывать всю директорию по таймеру и сравнивать что изменилось, занимает слишком много времени (очень много файлов в ней).
Нашел в msdn windows shell. Как все это прикрутить к VB не понятно.

Подскажите плз.

[XPraptor]

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

[gaidar]

Расширения оболочки? Читай www.rsdn.ru. На VC++. На VB6 как это сделать я пока не совсем себе представляю.

[eteP]

Этот сайт я уже просматрел, спасибо.

Если посмотреть в компонентах->контролы в VB то там есть Shell32.dll "Microsoft Shell Controls And Automation". Посмотрев что в ней есть по F2 мало что понял. Где-бы описание надыбать, а то методом тыка как-то долго будет.


2 XPraptor спасибо за предложенный метод, только это опять читать все файлы, что хотелось бы исбежать.

[SSecurity]

скорость обработки значительно уменьшается если у всех элементов DIR и FILE боксов сделать свойство Visibled = False
А последняя модификация папки - верный варинт ... ростой и эффективный. Иначе никак. Никто тебе не даст функции, которая выдает список файлов измененных ... или же отслеживай любой процес на машине.

[Kostyan]

Можно отлавливать нотификационные сообщения о изменениях в файловой системе, но если ты ставишь слежение за какой-то папкой и/или всеми её подпапками, то при изменении содержимого ты конечно получишь оповещение, но не будешь знать какой конкретный файл изменился и в какой подпапке. Получишь только что произошло (файл изменили, поменяли атрибуты файла, папки, и т.д.). Если метод подходит - у меня есть пример.

[eteP]

2 Kostyan
Если не сложно можешь выслать на мыло prosto_taaak сабака yahoo.de?
Было бы очень интерестно посмотреть как это сделать, я думаю что это подайдет.
Спасибо

[Kostyan]

Я выслал пример тебе на мыло, но на всякий случай выложу и тут

[eteP]

Всем привет
Я сделал наконец прогу, которая отслеживает файлы в директории.
Спасибо большое Kostyan за идею.

[Kostyan]

Круто!
Есть одно но, ф-я ReadDirectoryChangesW работает только на платформе NT, так что на Win9x прога не пойдёт...

[eteP]

На самом деле там много всякого "но".
Для 9х я думаю можно пользовать твой код + shell32.dll для того что бы найти те файлы которые были удалены\добавлены\изменены.
Я так уже пробывал делать, работает довольно быстро. Из 3000 файлов нахоится нужный(-ые) файлы меньше чем за секунду (время на глаз).


Пока у меня не получилось ReadDirectoryChangesW заставить работать по CALLBACK, не вызывает ее и все тут.
Видать где-то туплю. Но работа идет в этом направлении.

[Amed]

Я, конечно, не уверен, но, по-моему, кто-то плохо смотрит в API-Guide :

Код: Выделить всё

Private Const FILE_NOTIFY_CHANGE_ATTRIBUTES = &H4
Private Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2
Private Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
Private Const FILE_NOTIFY_CHANGE_SIZE = &H8
Private Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10
Private Const FILE_NOTIFY_CHANGE_SECURITY = &H100
Private Const FILE_NOTIFY_CHANGE_ALL = &H4 Or &H2 Or &H1 Or &H8 Or &H10 Or &H100
Private Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationA" (ByVal lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
Private Declare Function FindCloseChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Private Declare Function FindNextChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Declare Function ResetEvent Lib "kernel32" (ByVal hEvent As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Ret As Long
    'Set the notification hook
    Ret = FindFirstChangeNotification("C:\", &HFFFFFFFF, FILE_NOTIFY_CHANGE_ALL)
    'Wait until the event is triggered
    WaitForSingleObject Ret, &HFFFFFFFF
    MsgBox "Event Triggered for the first time"
    'Reactivate our hook
    FindNextChangeNotification Ret
    'Wait until the event is triggered
    WaitForSingleObject Ret, &HFFFFFFFF
    MsgBox "Event Triggered for the second time"
    'Remove our hook
    FindCloseChangeNotification Ret
End Sub

[Kostyan]

To Amed: А по-моему кто-то плохо читает посты. Вообще-то скачай мою программу и посмотри что там написано, ты будешь удивлён, но в ней используется тот же метод, что и у тебя.

[Sirik]

Код: Выделить всё

Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationA" (ByVal lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
Declare Function FindNextChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long
Declare Function FindCloseChangeNotification Lib "kernel32" (ByVal hChangeHandle As Long) As Long

Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long

Public Const FILE_NOTIFY_CHANGE_FILE_NAME = &H1
Public Const FILE_NOTIFY_CHANGE_ATTRIBUTES = &H4
Public Const FILE_NOTIFY_CHANGE_DIR_NAME = &H2
Public Const FILE_NOTIFY_CHANGE_LAST_WRITE = &H10
Public Const FILE_NOTIFY_CHANGE_SECURITY = &H100
Public Const FILE_NOTIFY_CHANGE_SIZE = &H8

Public Const INFINITE = &HFFFF

Global Chet As Integer

Function Uzn() As Long
  Dim Fl As Long, St As Long
  Fl = FindFirstChangeNotification("c:\t\", False, FILE_NOTIFY_CHANGE_FILE_NAME)
  St = WaitForSingleObject(Fl, INFINITE)
  FindCloseChangeNotification Fl
  Uzn = St
End Function


Здесь вместо константы INFINITE (с её помощью вызов функции будет длится пока не произойдёт какое-то изменение в наблюдаемой папке) можно вставить колличество милисекунд.

Один минус, нельзя определить какой именно файл был удалён, изменён или редатирован.

[XPraptor]

Люди, есть прога FILEMON.EXE не помню где скачивал, но на нее там и исходники были. Она следит за любыми изменениями файлов в указанных папках. Написана на VB. Я постоянно ей пользуюсь, вот только исходники я тогда не закачивал, а теперь не могу вспомнить где ее нашел.

[XPraptor]

во надыбал .OCX который следит за указанными папками http://www.vbnet.ru/activex/zip/mbshspy.zip