关于写文件的问题 怎样防止文件不被损坏

Question

关于写文件的问题 怎样防止文件不被损坏
我用vb 6.0 
Open "c:\Test.txt" For Output As #1
Print #1, "数据记录"
Close #1
文件可以写入成功，但是当我再次运行这段代码时，把以前的数据覆盖了 而数据不会累加
请问怎样才能使文件创建后 可以往文件离加数据，而不会覆盖我以前的数据请各位大侠帮忙，我比较急！！

Answer 1

用append方式:Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength]Open 语句的语法具有以下几个部分：部分 描述 
pathname 必要。字符串表达式，指定文件名，该文件名可能还包括目录、文件夹及驱动器。 
mode 必要。关键字，指定文件方式，有 Append、Binary、Input、Output、或 Random 方式。如果未指定方式，则以 Random 访问方式打开文件。 
access 可选。关键字，说明打开的文件可以进行的操作，有 Read、Write、或 Read Write 操作。 
lock 可选。关键字，说明限定于其它进程打开的文件的操作，有 Shared、Lock Read、Lock Write、和 Lock Read Write 操作。 
filenumber 必要。一个有效的文件号，范围在 1 到 511 之间。使用 FreeFile 函数可得到下一个可用的文件号。 
reclength 可选。小于或等于 32，767（字节）的一个数。对于用随机访问方式打开的文件，该值就是记录长度。对于顺序文件，该值就是缓冲字符数。 

Answer 2

dim sfile as string
sfile="c:\test.txt"if len(dir(sfile))=0 then
Open "c:\Test.txt" For Output As #1
else
Open "c:\Test.txt" For append As #1
end ifPrint #1, "数据记录"
Close #1

Answer 3

'Append模式
Open "c:\Test.txt" For Append As #1
Print #1,  "数据记录"
Close #1

Answer 4

晕，定义了个变量没用。:)改一下：dim sfile as string
sfile="c:\test.txt"if len(dir(sfile))=0 then
Open sfile For Output As #1
else
Open sfile For append As #1
end ifPrint #1, "数据记录"
Close #1

Answer 5

用追加的方式打开：Open FileName For Append Access Read Write Shared As #1

Answer 6

Private Sub Command1_Click()
    Open App.Path & "\test.bat" For Append Access Read Write As #1
    Write #1, "newLine"
    Close #1
End Sub