Stuck on open file.

[wmtsub]

Here is a bitof my script. It runs once just fine but if i run it a second time before shutting down the workbook I get an error "File already in open" on line 1. Which file and how can i close it?

Open "C:\Users\test user\AppData\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1 , ltxt
If ltxt = "bob b" Then GoTo xit
Loop
Close #1


thanks...

 

[Norie]

Are you closing the file in the code you jump to when you find the text you are looking for?

 

[wmtsub]

Do you mean this?

Open "C:\Users\test user\AppData\test.txt" For Input As ​

#1

As far as I can see it is not actually open.

I have tried to close it just in case but I can not find the syntax that works.

Any help would be appreciated

​

 

[wmtsub]

I found the issue. Seems I was only closing the file in one instance:

Open "C:\Users\test user\AppData\test.txt" For Input As ​

#1

Do While Not EOF(1)
Line Input ​

#1

, ltxt
If ltxt = "bob b" Then GoTo xit ' needed to close file there as well.
Loop
Close ​

#1

​