В чём трабла с FindFirstChangeNotification

[Taras2]

Пишу:
...
Private Const FILE_NOTIFY_CHANGE_SIZE = &H8
...
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
...

В теле подпрограммы:

...
hChange = FindFirstChangeNotification("C:\", &HFFFFFFFF, FILE_NOTIFY_CHANGE_SIZE)
Debug.Print "hChange=" & hChange

Получаю -1
В качестве bWatchSubtree пробовал True и False, одинаково.
В качестве dwNotifyFilter , ставил FILE_NOTIFY_CHANGE_ALL , не помогает.

Сейчас попробовал поставить Private Declare Function FindFirstChangeNotification Lib "kernel32" Alias "FindFirstChangeNotificationW" (ByVal lpPathName As String, ByVal bWatchSubtree As Long, ByVal dwNotifyFilter As Long) As Long
Выдаёт 0.

[Sebas]

Слышал звон

hChange = FindFirstChangeNotification("C:\", &HFFFFFFFF, FILE_NOTIFY_CHANGE_SIZE)
Debug.Print "hChange=" & hChange

Здесь ты только хендл объекта получил....
Его ж нужно отледить......

слудующей строкой ставишь
result=WaitForSingleObject(hChange,WaitMilliseconds)'могу с параметрами напутать...
WaitMilliseconds-скока ждать
result- вот это уже проверять надо

[Taras2]

Слышал звон

hChange = FindFirstChangeNotification("C:", &HFFFFFFFF, FILE_NOTIFY_CHANGE_SIZE)
Debug.Print "hChange=" & hChange

Здесь ты только хендл объекта получил....
Его ж нужно отледить......

В том то и дело, что я хендл не получил! Поскольку -1 это: INVALID_HANDLE_VALUE.
Кстати GetLastError выдаёт 0, что означает операция выполнена успешно.

[Taras2]

А функция eof() отреагирует, если в файл запишет другая прога? У меня не реагирует.

[Sebas]

Выложи, плиз, весь код я покопаю, а то самому писать лень..