Detect if other programs are accessing a file

[Custardptt]

Hi All,

Is there a reliable way of detecting if a file is in use from within Access?

My application needs to access and move files that are placed on the local disk by other applications (on the same PC). I’d like to check to see if anything else is writing to the file first.

Thanks in advance

Pete

 

[JerryKlmns]

If you try to open it for read/write denying that to other programs, you'll get and error if it is in use. This Function grabs the error and returns True/False

(Typed, Untested)

Function CheckAvail(strFile As String)  As Boolean

Dim myFreeFile As Long

On Error Resume Next
myFreeFile = FreeFile
Err.Clear
Open strFile For Random Access ReadWrite LockReadWrite As #myFreeFile
If Err.Number <>0 Then
   CheckAvail=False
Else
   Close #myFreeFile
   CheckAvail=True
End If
End Function