您的位置：程序门 -> vb -> 基础类

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

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

提示错误：文件已经打开，是为什么？谢谢[已结贴,结贴人:yuandream2002]

发表于：2007-05-08 15:29:05 楼主

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

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
每次到这里的时候，就提示　文件已经打开！！！

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

发表于：2007-05-08 15:34:041楼得分:5

当然了，你打开的是在for 中的吗，所以已经打开了。

发表于：2007-05-08 15:36:322楼得分:0

谢谢
我不是在每次　ｎｅｘｔ　ｋ　前都关闭这２个文件了么？貌似以前都可以的
那我应该怎么　做？谢谢

发表于：2007-05-08 16:07:173楼得分:30

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

发表于：2007-05-08 17:30:084楼得分:5

打开文件用完之后要及时关闭
不然会有想不到的错误

发表于：2007-05-10 14:13:465楼得分:0

谢谢，这个问题已经搞定
但是每次执行的时候，设置为定时任务，经常显示错误的文件名或数！
但是手动打开源代码，运行，却可以执行？
请问这是为什么，谢谢

下一篇：winsock接收邮件得到的是乱码,怎么解决?谢谢
上一篇：新手提问:有关用vb打开ie浏览器的问题,谢谢

其他资讯