File being used error

[Guest_imported]

Hi,

When opening a file for writing
or reading, I sometimes get an
error stating that the file is
being used by another application.
So, before I try to do stuff with
that file, is it possible to detect
whether that file is being used or not?
Or is there some error handling code
I should know about and use?

PS.. I've tried

On Error Resume Next

Thank you.

 

[JohnYingling]

Dim lngErr as Long
Dim strDescription as string
Dim intResult as Integer
Do
    On Error Resume next
        Open
        lngErr = Err.Number
        strDescription = Err.Description
    On error go to 0
    if lngErr = 0 then exit Do
    intResult = Msgbox ("Error Code=" & lngErr & _
           vbcrlf & strDesription & vbCrlf &
           "Contiune?",vbYesNo)
    if intResult = vbNO then
    ....throw error
    End if
Loop

http://www.VBCompare.com

http://www.VBSortGen.com