TopPicLogo TopPicText

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

   

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

Назад ToTop
L.E. 17.11.2012
Рейтинг@Mail.ru