VB QUESTION

Question

Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "\MenuList1.Dat" For Output As #1
For N = 0 To Combo1.ListCount - 1
Print #1, Combo1.List(N)
Next
Close #1
End Sub

我寫上面的程式來儲存紀錄...

但是這樣的話每次儲存都會把之前的檔案蓋掉...

有辦法改善嗎?

Answer 1

'Output改成Append即可
圖片參考：http://tw.yimg.com/i/tw/blog/smiley/3.gif

Private Sub Form_Unload(Cancel As Integer)
Open App.Path & "MenuList1.Dat" For Append As #1
For N = 0 To Combo1.ListCount - 1
Print #1, Combo1.List(N)
Next
Close #1
End Sub