Sub CheckIfFileOpen() | |
Dim fileName As String | |
fileName = "C:\Users\marks\Documents\......." 'Tên file kèm đường dẫn | |
'Gọi function kiểm tra file đóng hay mở | |
If IsFileOpen(fileName) = False Then | |
'Câu lệnh thực hiện khi file đang đóng | |
Else | |
'File đang mở hoặc lỗi khác | |
MsgBox fileName & " is already open." | |
End If | |
End Sub |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment