Is FIle Open

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Gary''s Student - 14 Feb 2007 13:58 GMT

We have a .xls file on a server. Is there any way to determine if another
user has the file open before trying to open it myself?

Signature

Gary's Student
gsnu200706

Reply to this Message

Bob Phillips - 14 Feb 2007 14:05 GMT

Function IsFileOpen(FileName As String)
Dim iFilenum As Long
Dim iErr As Long

On Error Resume Next
iFilenum = FreeFile()
Open FileName For Input Lock Read As #iFilenum
Close iFilenum
iErr = Err
On Error GoTo 0

Select Case iErr
Case 0: IsFileOpen = False
Case 70: IsFileOpen = True
Case Else: Error iErr
End Select

End Function

Sub test()
If Not IsFileOpen("C:\MyTest\volker2.xls") Then
Workbooks.Open "C:\MyTest\volker2.xls"
End If
End Sub

Signature

HTH

Bob Phillips

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> We have a .xls file on a server. Is there any way to determine if another
> user has the file open before trying to open it myself?

Reply to this Message

Gary''s Student - 14 Feb 2007 14:35 GMT

Thank you

Signature

Gary's Student
gsnu200705

> Function IsFileOpen(FileName As String)
> Dim iFilenum As Long
[quoted text clipped - 23 lines]
> > We have a .xls file on a server. Is there any way to determine if another
> > user has the file open before trying to open it myself?

Reply to this Message