作者changphone (阿牛)
看板Visual_Basic
标题[VB6 ] 有关利用filesystemobject写入资料的问题
时间Wed Dec 27 22:41:39 2006
请各位帮忙了
我的问题是
将资料写入text档之後，必须要写个txtf.close 才可以继续执行
可是若再打开此text档，再写入资料，则资料会覆盖上一笔的资料= =
以下是程式中某一部份 (其中有关ii的部份没有写进去)
Set txtf = fs.OpenTextFile(ss, ForReading, False)
Do Until txtf.AtEndOfLine
ff = Split(txtf.ReadLine, ",")
sss = App.Path + "\分类\" + Trim(Str(ii)) + ".txt"
Set txtf2 = fs.OpenTextFile(sss, ForWriting) -------------(1)
txtf2.Write (ff(2))
txtf2.Write vbCrLf <----换行也没用
txtf2.Close <-----如果去掉 会显示 (1)没有使用权限
Loop
有关我的问题这部份 ，该怎麽处理呢??
谢谢各位了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.120.6.155
1F：→ changphone:已经解决了 谢谢喔 12/28 09:03