提示错误：文件已经打开，是为什么？谢谢

小弟曾经编写个小程序，一直运行好好的．可惜这次准备写个配置文件，结果原本好好的程序，在第２次打开文件就卡住了


If UBound(xx) > 1 Then

'将这些文件转化为一个文件
For k = 1 To (UBound(xx) + 0)
filemix = frompath & "\ " & xx(k)
j = topath & "\tmp\DAY " & ineedtime & ".TXT " '

outfile0 = j
Open filemix For Input As #3

Open j For Append As #4

Do While Not EOF(3)
Line Input #3, jj
Print #4, jj

Loop
Close #3
Close #4

Next k


End If


'对这个文件进行必要的处理
Open outfile0 For Input As #1
每次到这里的时候，就提示　文件已经打开！！！


天啊，真的　不知道为什么？求教各位


[解决办法]
当然了，你打开的是在for 中的吗，所以已经打开了。
[解决办法]
Open outfile0 For Input As #1
你上句语句在你代码中并未发现。
你的代码在调试中未发现出错，建议代码修改为：

For k = 1 To (UBound(xx) + 0)
filemix = frompath & "\ " & xx(k)
j = topath & "\tmp\DAY " & ineedtime & ".TXT " '
outfile0 = j
Open filemix For Input As #3
Open j For Append As #4
Do While Not EOF(3)
Line Input #3, jj
Print #4, jj
Loop
Close '关闭所有打开的文件
Next k
End If
[解决办法]
打开文件用完之后要及时关闭
不然会有想不到的错误