Проверка не открыт ли файл другим процессом

Private Function FileIsFree(strPath) As Boolean

'es 28.10.05

'Проверяет не открыт ли файл другим процессом

'Если НЕТ - возвращает TRUE

Dim varFile As Variant

On Error GoTo FileIsFree_Error

varFile = FreeFile

Open strPath For Input Access Read Lock Read Write As varFile Len = 1

FileIsFree = True

FileIsFree_Bye:

On Error Resume Next

Close varFile

Exit Function

FileIsFree_Error:

Err.Clear

FileIsFree = False

Resume FileIsFree_Bye

End Function