2013-07-14 66 views
2

你好我正在使用此代碼來保存listbox1內容到它的工作.txt文件。但只要我重新打開程序並保存新文本,它會覆蓋原始文本,我如何將它添加爲附加文本而不是覆蓋。非常感謝你的每1列表框到文本文件沒有覆蓋

Dim W As IO.StreamWriter 
Dim i As Integer 
W = New IO.StreamWriter("C:\test\test.txt") 

For i = 0 To ListBox2.Items.Count - 1 
    W.WriteLine(ListBox2.Items.Item(i)) 
Next 
W.close() 

回答

3

試試這個

W = New IO.StreamWriter("C:\test\test.txt", True) 

真正的語句表示要追加文本到現有文件。

+0

+1向代碼添加解釋。 – Tim

+0

非常感謝你你是他最好的作品perefeklty我離開你1積極反饋歡呼 – user2581791

-1

這太棒了!

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click 

Dim count As Integer = System.IO.File.ReadAllLines("location").Length 
    If count <= 9 Then 
     MsgBox("less then 10") 
    Else 
     MsgBox("more then 10") 
    End If 
End Sub