[VB6 ] 有關利用filesystemobject寫入資料的問題

[changphone (阿牛)]

請各位幫忙了

我的問題是

將資料寫入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
→ changphone:已經解決了 謝謝喔