Узнать,что файл открыт другим пользователем

[SergT]

Как грамотно узнать что файл (в частности Excel) в данный момент открыт другим пользователем локальной сети?
Файл может изменяться через каждые 5 минут или чаще. Пробовал открывать файл и ловить ошибку доступа. НО в это время при доступе с других компьютеров тоже может возникнуть ошибка! В общем, некрасиво получается. Нельзя ли как нибудь иначе узнать, без попытки открытия файл? (На форуме искал - не нашел. Может слова не те подбирал)

[SergT]

При открытии *.mdb файлов - создается (в той же папке) файлик *.ldb, в котором описаны все подключенные пользователи. Можно и в Excel'ном файле написать подобную процедурку. Но вот очень хочется без макросов. Может посмотреть какие -нить атрибуты или еще что-то? Я уверен, что решение должно быть иное, чем открытие файла. А может смена атрибутов или удаление...
Жду от Вас любых идей.

[Andrey Fedorov]

А не проще уйти от Excel-я как такового? Все-же он не предназначен для многопользовательской работы по определению.

[alibek]

Excel-файл находится на сетевом ресурсе? Или локально?

[Sirik]

2 Andrey Fedorov

см. атачмент

[X-BOND]

Это подойдет?
(для любых файлов, сетевых или локальных)

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

Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Declare Function lClose Lib "kernel32" Alias "_lclose" (ByVal hFile As Long) As Long


Public Function IsFileAlreadyOpen(ByVal FileName As String) As Boolean
Dim hFile As Long
Dim lastErr As Long
   
hFile = -1
lastErr = 0
hFile = lOpen(FileName, &H10)

If hFile = -1 Then
    lastErr = Err.LastDllError
Else
lClose (hFile)
End If

IsFileAlreadyOpen = (hFile = -1) And (lastErr = 32)

End Function


[SergT]

Excel-файл находится на сетевом ресурсе? Или локально?

На сетевом. С рекомендацией открывать для чтения...

[SergT]

Спасибо "X-BOND" - то,что надо! На 2000 работает изумительно

[SergT]

А не проще уйти от Excel-я как такового? Все-же он не предназначен для многопользовательской работы по определению.

Низ-з-з-я! Начальство запрещает!