Question

Visual Basic6.0文件读写操作 急a

文件读写，很成功，但是每次输出后，Output.txt中数据都会清空，然后变成新的数据。如何让老的数据不消失？急啊。。。
On Error Resume Next '打开错误陷阱
'----------------文件传输--------------------
Dim FileString
FileString = App.Path & "\比例记录.txt"
Open FileString For Output As #1
Dim WriteString
WriteString = Format(Now, "yyyy mmm d h:m:s") & "奇数与所有之比为：" & sum & ":10"
Print #1, WriteString
Close #1

Answer 1

把你的

Open FileString For Output As #1

换成

Open FileString For Append As #1

试试