file already open 1

[vechalapu]

hi,

When try to open a file in Vb 6.0, I am getting error 'file already open'. Is there any way to check, if the file is open or not, so that I need to open the file again. The file is stored on a network so I do'nt have too much control over the file.

Thanks

 

[vb5prgrmr]

Give this a try

[tt]
Public Function IsFileOpen(PathToFile As String) As Boolean

On Error GoTo IsFileOpenError

Open PathToFile For Input Lock Read Write As #yourfilenumb

Exit Function

IsFileOpen = True

End Function

[/tt]


Good Luck

 

[s2001]

VB returns error 55 if the file is open. Check for the error number. CLose the file if you encounter the error and then re-open it..

Sample:

Private Sub Command1_Click()
On Error GoTo Errh
Open "C:\Temp.txt" For Input As #2
MsgBox "File opened sucessfully"

Errh:
If Err.Number <> 0 Then
If Err.Number = 55 Then
MsgBox &quot;File is open lets close it.&quot;
Close #2
Else
MsgBox Err.Number & &quot; &quot; & Err.Description
End If
End If
End Sub

Hope this helps

Thanks Murali Bala

 

[vechalapu]

Hi,

Thanks for all the help.

 

[kermit01de]

That helps in general, but in my case I did not open the file and have to get access. Is there any way to find out which application has grabbed access / opened the file? Or is there any possibility to force close - so that I may get access?
-- same questions to permission denied - error 70
Thanks

 

[dglienna]

You can get many programs from this site. One is FileMon which will let you know what process has a file open. They also have PSKILL which will let you kill the process that you choose.

http://www.sysinternals.com/utilities/filemon.html

David