file already open in a network drive

[KWell]

Yes the command exist. It use and API call.
Before Open the file, test it with the IsFileAlreadyOpen function

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


Function IsFileAlreadyOpen(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
    Else
    ' Make sure we close the file on success.
    lClose (hFile)
 End If

 ' Check for sharing violation error.
 If (hFile = -1) And (lastErr = 32) Then
    IsFileAlreadyOpen = True
    Else
    IsFileAlreadyOpen = False
 End If
End Function