VB6.0如何能在保存.log文件原有内容的基础上向下更新内容

来源:百度知道 编辑:UC知道 时间:2024/09/28 14:10:01
如题,我想实现读取csv文件后写入log文件中,但按照我的代码,先前的log文件内容会被覆盖,如何能实现保存原有信息的基础上更新?
Private Sub Command1_Click(Index As Integer)
Open "d:\123.csv" For Input As #1
Open "d:\def.log" For Output As #2
Dim j As String
Do While Not EOF(1)
Line Input #1, j
Write #2, j
Loop
Close #1
Close #2
Unload Form1
End Sub

Private Sub Command1_Click(Index As Integer)
Open "d:\123.csv" For Input As #1
Open "d:\def.log" For append As #2
Dim j As String
Do While Not EOF(1)
Line Input #1, j
Write #2, j
Loop
Close #1
Close #2
Unload Form1
End Sub