这个是怎么回事？

Question

在VB里用open函数打开文件提示“文件已被打开”是怎么回事？仔细检查过了，之前的open都合法close了，唯独这个说文件已打开
错误代码如下：
Dim g As string
Open "D:\use\gold.txt" For Input As #1   '错误的黄色警告在这
Do while not EOF(1)
Line input #1,g
Loop
Close #1
华丽的分割线

Answer 1

开始，运行，resmon。打开资源监视器，切到CPU标签，在“关联的句柄”里搜索 gold.txt，试试看有没有结果。

Answer 2

搜不到啊，没有gold.txt

Answer 3

你这个文件是从哪里生成的，你写这个文件的程序没有close掉

Answer 4

close了，找到原因了，仔细看来一下，之前有一个其他的文件没有close掉，但之后的文件都没问题，只有gold.txt打不开，而且没关的不是gold.txt，这就很奇怪了，不过还是解决了

Answer 5

找到原因了，仔细看来一下，之前有一个其他的文件没有close掉，但之后的文件都没问题，只有gold.txt打不开，而且没关的不是gold.txt，这就很奇怪了，不过还是解决了

Answer 6

找到原因了，仔细看来一下，之前有一个其他的文件没有close掉，但之后的文件都没问题，只有gold.txt打不开，而且没关的不是gold.txt，这就很奇怪了，不过还是解决了你的文件号用FreeFile申请出来，不要用#1 #2 容易冲突Dim g As string,Fn As Integer
Fn=FreeFile
Open "D:\use\gold.txt" For Input As #Fn   '错误的黄色警告在这
Do while not EOF(Fn)
Line input #Fn,g
Loop
Close #Fn