Binaryworld - Check whether file is opened exclusively or not ? ... [ VB -> Files & Folder ]

'Determine whether a file is already open or not
Private Declare Function lOpen Lib "kernel32" Alias "_lopen" (ByVal lpPathName As String, ByVal iReadWrite As Long) As Long
Private Declare Function lClose Lib "kernel32" Alias "_lClose " (ByVal hFile As Long) As Long

Private Function IsFileOpened(FileName As String) As Boolean
  Dim hFile As Long
  Dim lastErr As Long
  ' Initialize file handle and error variable.
  hFile = -1
  lastErr = 0
  ' Open for for read and exclusive sharing.
  hFile = lOpen(FileName, &H10)
  ' If we couldn't open the file, get the last error.
  If hFile = -1 Then
    lastErr = Err.LastDllError
    'ShowAPIErr lastErr
  Else
    ' Make sure we close the file on success.
    lClose (hFile)
  End If
  ' Check for sharing violation error.
  IsFileOpened = (hFile = -1) And (lastErr = 32)
End Function

Private Sub Form_Load()
On Error GoTo errhandler
Dim Handle As Long
Dim FileName As String

  'FileName = "c:\test.xls"
  FileName = "c:\autoexec.bat"

  Handle = FreeFile
  'Open FileName For Input As #Handle

  If IsFileOpened(FileName) Then
    MsgBox FileName & " is Opened by someone"
  Else
    MsgBox FileName & " is closed"
  End If

  'Close #Handle

  Exit Sub
errhandler:
  MsgBox Err.Description
End Sub