checking to see if a file is open

[impulse24]

Hi,

How can I check to see if a file is open with vb code. I am currently moving files from one directory to another in code, but if a file is open I want to skip it. What's the best way to do this?

 

[OLAPer]

I guess my answer is a question really !

Do you not merely try to open the file, if it can't be opened then it must be open !!!

??????
Is this one way of checking ?

OLAPer

 

[impulse24]

Nope..What I am doing is moving files from one directory to another. There is another program that at any point will be in the process of writing data to one of the files. With my current program I am able to move the file without generating an error, the other program simply creates a new file, and starts writing to it. I want to avoid moving the file, as now half the data resides in one file, and the other half resides in another(the file is a text file by the way)

 

[scorpio66]

Try opening the file in exclusive mode prior to the move.

Private Function CanOpen (filename as String) as Boolean
  Dim f as Long
  f = Freefile
  On Error Resume Next
  Open filename for Input Access Read Lock Read as f
  If Not Err
    CanOpen = True
  Else
    CanOpen = False
    Err.Clear
  End If
End Function

Chaz