This is how to return a responsibility?-CodePudding

Open the file using the open function in VB tip "file has been opened" is how to return a responsibility? Carefully checked, open all legitimate close before, but the said file has opened the
The error code is as follows:
Dim g As string
Open "D: \ use \ gold. TXT" For Input As # 1 'wrong yellow warning in this
The Do while not EOF (1)
The Line input # 1, g
Loop
Close # 1

华丽的分割线

CodePudding user response:

Start, run, resmon, open resources monitor and cut to the CPU, in "the context handle" search gold. TXT, give it a try if there is any result,

CodePudding user response:

reference 1/X - I - n reply:

start, run, resmon, open the resource monitor, cut to the CPU label, in "the context handle" search gold. TXT, give it a try if there is any result,

I give it a try, thanks first

CodePudding user response:

reference 1/X - I - n reply:

start, run, resmon, open the resource monitor, cut to the CPU label, in "the context handle" search gold. TXT, give it a try if there is any result,

No, not gold. TXT

CodePudding user response:

You from where this file is generated, you write a program does not have the close out of this file

CodePudding user response:

Close, find the reasons, looks carefully, before have one other file is not close, but after the documents are no problem, only gold. TXT won't open, and open is not gold. TXT, this is very strange, but is still solved

CodePudding user response:

reference 1/X - I - n reply:

start, run, resmon, open the resource monitor, cut to the CPU label, in "the context handle" search gold. TXT, give it a try if there is any result,

Found the reason, looks carefully, before have one other file is not close, but after the documents are no problem, only gold. TXT won't open, and open is not gold. TXT, this is very strange, but is still solved

CodePudding user response:

refer to 6th floor Mr_defined response:

Quote: refer to 1st floor X - I - n reply:
start, run, resmon, open the resource monitor, cut to the CPU label, in "the context handle" search gold. TXT, give it a try if there is any result,

Found the reason, looks carefully, before have one other file is not close, but after the documents are no problem, only gold. TXT won't open, and open is not gold. TXT, this is very strange, but solves the

Your file number with FreeFile application, do not use # 1, # 2 easy to conflict

 
Dim g As string, Fn As Integer 
Fn=FreeFile 
Open "D: \ use \ gold. TXT" For Input As # Fn 'wrong yellow warning in this 
The Do while not EOF (Fn) 
The Line input # Fn, g 
Loop 
Close # Fn

CodePudding user response:

Ok, thank you

CodePudding user response:

Ok, thank you