Sequential Access Files

Does anyone know how to check to see if a file is already open.

I have a file in a loop but when it executes the loop the second time it says FILE ALREAY OPEN.
I had originally fixed this with a boolean but I don't want to do that.

I need something like

IF File#1.AlreadyOpen Then
''''''
END IF

Can someone help?

You can use FreeFile function that will open this file in another available channel.

VB Code:

Dim intFFN As Integer
 
intFFN = FreeFile
 
Open "C:\YourFile.txt" For Input As intFFN
'do you stuff here
Close #intFFN

Try closing it before opening it a 2nd time

close #1