vb.net - 列表框到文本文档没有覆盖

Question

您好，我正在使用此代码将 listbox1 内容保存到 .txt 文档，它可以工作。但是一旦我重新打开程序并保存新文本，它会覆盖原始文本，我怎样才能让它作为附加文本添加而不是覆盖。非常感谢每一个。

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()

Answer 1

尝试这个

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

true 语句表示您希望将文本附加到现有文件。

Answer 2

这很棒！

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