проверка открытия файла

Воскресенье, 26 Июня 2016 г. 09:56 + в цитатник

Добрый день! Необходимо проверить, открыт ли файл access. Если проверять по наличию файла блокировки, то иногда бывают
случаи что файл блокировки после закрытия не удаляется.

Вот нашел другой пример проверки, как думаете, насколько он хорош?
Может есть другие способы решить эту проблему?

Sub GlosFileAc() 'проверка
Dim lngChanel As Long
On Error Resume Next
    lngChanel = DDEInitiate("Microsoft Access", "C:\dbdb.mdb")
    If Err.Number = 0 Then
        MsgBox "файл открыт"
    Else
        MsgBox "файл закрыт"
    End If
End Sub