Слежка за созданием файлов...

[Мамонт]

Подскажите как отследить запись файлов в определённую папку! Ну т.е. если в папку сохранился файл то msgbox вылетает....

[Alexander N. Samarin]

Досовская команда DIR

[Cryonyx]

Поищи по топику "индексация файлов" - с месяц назад такая темка была

[Мамонт]

Чёто нигде не могу найти...

[Vellan]

Ты файл сам сохраняешь? Вообще всё зависит от распрастранённости программы.

[Sebas]

ищи апи FindFirstFileNoticefication

Могу ошибиться в написании...

[cernd]

а можно поподробнее про FindFirstFileNotification?
Яндекс выдает все про дельфи, а в MSDN по такому слову ничего не находится

[KDima]

Хм. такой Api нету...

[alibek]

FindFirstChangeNotification

[KDima]

А пример?

[cernd]

В MSDN есть пример для C++
думаю также сработает и в VB, но я решил использовать таймер

[Мамонт]

да.... исчерпывающие ответы!

[xolod]

2 Format C:
Ну что ты хочешь? Что бы за тебя все написали? Какой ты тогда программист? Учись искать ответы самостоятельно.

[xolod]

Ну и пример использования, в догонку..
В будущем - все-таки учись поиском пользоваться

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


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()
    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


[Мамонт]

Ты сам то проверял этот пример???

[xolod]

2 Format C:
Да, а ты?

[Мамонт]

Глючит очень! Я видел этот пример!

[Sebas]

Проще на НЕТ написать, там всё есть....