VBA - Test if a CAD file is already open by an another user

[felix.corre]

Hello,

I pilot AUTOCAD from excel VBA to execute mass routines for around 2000 plans. I would like to test if the CAD file is opened by another user.
I tried to test the presence of the DWL file but strangely it does not work.
Could someone help me?
Thanks.

[seabrahenrique · Accepted solution]

Hello,

This code bellow works to check if the file is already open in my own PC, but i guess the logic also can be implemented to check to another users, let me know about it:

Sub CheckIfFileIsOpen(filePath As String)

  On Error Resume Next
  Dim fileNum As Integer: fileNum = FreeFile()
  
  Open filePath For Input Lock Read As #fileNum
  
  If Err.Number <> 0 Then
  
    MsgBox filePath & " is already open by another user."
    
  Else
  
    Close #fileNum
    MsgBox filePath & " is not open."
    
  End If
  
  On Error GoTo 0
  
End Sub

Sub MakeATestHere()

    CheckIfFileIsOpen ("C:\?") 'PUT THE FULL PATH OF YOUR FILE HERE

End Sub

I hope can help u!

[felix.corre]

Perfect, thanks a lot!