Đánh giá chủ đề:
  • 4 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hàm kiểm tra 1 file được mở hay chưa
#1
tác giả: truongphu
Site: CLB VB

Mã:
Function IsFileOpen(FileName As String) As Boolean
    Dim filenum As Integer 'truongphu
   filenum = FreeFile()
    On Error Resume Next
    Open FileName For Input Lock Read As #filenum
    Close filenum
    Select Case Err
        Case 0
            IsFileOpen = False
        Case 70
            IsFileOpen = True
        Case Else
    End Select
End Function
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hàm] [Demo] Hàm đặt pass cho file *.mdb khác maidinhdan 23 1,337 17-10-16, 04:25 PM
Bài mới nhất: maidinhdan
  [Hàm] Demo Hàm mở mọi loại file ( Access) maidinhdan 7 1,738 26-05-16, 10:53 AM
Bài mới nhất: lmthu
  Hướng Dẫn Hàm API trong quản lý file và folder maidinhdan 1 290 22-04-16, 09:40 AM
Bài mới nhất: kieu manh
  [Hàm] Demo hàm nén mọi file thành file *.zip maidinhdan 4 897 20-09-15, 11:57 AM
Bài mới nhất: conmeocon
  [Hàm] Demo hàm Giải nén file *.zip maidinhdan 6 1,098 17-07-15, 08:23 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ