IsFileOpen.bas

Function IsFileOpen(fileName As String) 'Function kiểm tra file đang mở hay đóng

Dim fileNum As Integer
Dim errNum As Integer

'Bỏ qua các lỗi có thể gặp
On Error Resume Next
fileNum = FreeFile()

'Thực hiện việc mở / đóng file xem có lỗi không
'Lỗi xảy ra có nghĩa là file đang mở
Open fileName For Input Lock Read As #fileNum
Close fileNum

'Lấy mã lỗi
errNum = Err

'Đặt cơ chế bẫy lỗi về mặc định
On Error GoTo 0

'Kiểm tra theo mã lỗi
Select Case errNum

  'Mã lỗi = 0 có nghĩa file đang đóng
    Case 0
    IsFileOpen = False
 
  'Mã lỗi = 70 có nghĩa file đang mở
    Case 70
    IsFileOpen = True

  'Các lỗi khác
    Case Else
    IsFileOpen = errNum

End Select

End Function