• Trang chủ click to expand contents 

  • Hàm kiểm tra 1 file được mở hay chưa

  • Hàm kiểm tra 1 file được mở hay chưa

    Noname > 03-10-10, 11:53 PM

    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