Блог

Я хочу записать текст из текстовых полей в текстовый файл.

Код записывает первую строку текстового файла. Когда я очищаю текстовые поля для записи других значений, то, что было записано ранее, исчезает и заменяется новыми значениями.

Как мне записать новый набор значений под предыдущим?

 Dim path As String = TextBox1.Text amp; ".txt"
path = "C:UsersUSERDesktop" amp; path

Dim studentno As Integer = TextBox2.Text
Dim name As String = TextBox3.Text
Dim surname As String = TextBox4.Text
Dim subject As String = TextBox8.Text
Dim indv As Integer = TextBox5.Text
Dim grp As Integer = TextBox6.Text
Dim test As Integer = TextBox7.Text

If System.IO.File.Exists(path) = True Then
    Dim sw As New System.IO.StreamWriter(path)
    sw.WriteLine(studentno amp; "," amp; name amp; "," amp; surname amp; "," amp; subject amp; "," amp; indv amp; "," amp; grp amp; "," amp; test)
    sw.Close()
    MessageBox.Show("Text written to file.", "Note", MessageBoxButtons.OK, MessageBoxIcon.Information)

Else
    MessageBox.Show("File Does Not Exist.", "Note", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

End Sub
  

Это код, который мне нужен для создания файла, он работает отлично, так что все в порядке.

 
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim path As String = TextBox1.Text amp; ".txt"
        path = "C:UsersUSERDesktop" amp; path

        If String.IsNullOrEmpty(TextBox1.Text) = True Then
            MessageBox.Show("Textbox Empty", "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error)
        ElseIf Not File.Exists(path) Then
            File.Create(path).Dispose()
            MessageBox.Show("File created.", "Note", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("File already exists.", "Note", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If

    End Sub