MyTetra Share
Делитесь знаниями!
Проверка не открыт ли файл другим процессом
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 12 Папки и Файлы

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

   

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




Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования