permision denied

After running my app, i cannot re-run the app due to a an error message "RUN TIME ERROR 70"
"PERMISIION DENIED"
I do a lot of file handling and wondered if there is a way in the environment ot see if any files handles etc are still open.

Many thanks Gary

I think you can check that with this in the debug window:

Code:

---

? FreeFile '(?=Print)

---

Just gave me the number 1, any other clues or is this my clue freefile 1?

Gary

I got around the error 70s in an application (on the Open for input line) by trapping it in the error handler and issuing a sleep command for a couple of seconds and then resuming the same open statement.

Apparently one of the modules was trying to open the files which was not yet done with by another app. Honestly, it worked like magic for us.

I would also like to know if there is a way to see if a file handle is open.

Do you have a sample example.?

GARY

To be really sure, you can use close method without filenumber.

Code:

---

Close

---

it will close all files and it won't cause any errors if there are no files open.

To get the next open file handle, you can use FreeFile. The FreeFile function will return an integer with the next file number available.

To see if one is open,

Code:

---

On Error Resume Next
Open FileName For Input As TheOneYouWantToCheck
If Err.Number = 70 Then
  MsgBox "in use"
Else
  Close TheOneYouWantToCheck
End If

---

I think that works.

Sunny