Checking Text File is Already Opened

[VijaySofist]

Hi All!

I want to check whether a given text File is Already Opened or not. I am using Visual Basic 6.0 in the Windows XP OS.

I am using the following code. It works for .doc, .xls and .mdb. But its not working for .txt file type

Public Function IsFileOpen(FileName As String) As Boolean
    On Error GoTo ErrHandler
    Open FileName For Binary Access Read Lock Read As #1
        MsgBox Input$(LOF(1), #1)
    Close #1
    Exit Function
ErrHandler:
    MsgBox "File is Already Opened"
End Function

Can Any body give me the solution for this?

Thanks and Regards
Vijay. R

[joedeene]

you could do a try, catch block to open a file with all access, like use the filestream, and set the shared propertie to fileshare.none, and if it is being used it should throw an exception

[vdraceil]

u could copy the suspected file to a specific location and then try deleting that file(performing cut operation;cut=c opy+delete)..
any open file will throw an error which u can identify,thus knowing whether the file is open or not.
this method works for almost all files like .doc,.mp3,.wav. ...
but not to text files.
text files can be deleted even while it is running(in a notepad)