vb 寫檔的問題 .

試試 Open fil_w For Binary Access Append As #1

Write改成Append

2008-12-18 18:57:16 補充：
先取出檔案大小 FileLen("C:\123.txt")



　　Dim s As Byte
　　
　　s = 123
　　Dim fl As Integer
　　fl = FileLen("C:\123.txt")
　　Open "C:\123.txt" For Binary Access Write As #1
　　　　Seek #1, fl + 1
　　　　Put #1, , s
　　Close #1

就會把資料加在最後面了。 Try it~