每次单击此按钮时，如何创建一个新的txt文件？

Question

Private Sub cmdsummary_Click(sender As Object, e As EventArgs) Handles cmdsummary.Click
    Dim writer As New System.IO.StreamWriter("C:\Users\salman\Desktop\Text.txt")
    writer.WriteLine(Me.customer.Text + Me.txtcustomer.Text)
    writer.WriteLine(Me.todaystotal.Text + Me.txtsummarytotal.Text)
    writer.WriteLine(Me.average.Text + Me.txtaveragetotal.Text)
    writer.Close()

End Sub

Every time I click on cmdsummary it edits the notepad file (txt) and updates it but I want to create a new txt file everytime I click on this button.

Answer 1

I think you'd have to change the name of the textfile or filepath each time, or else it will just keep writing to the same place (and same file).

EDIT: Code with simple counter

Dim filesWritten as Integer = 0

Private Sub cmdsummary_Click(sender As Object, e As EventArgs) Handles cmdsummary.Click
    Dim writer As New System.IO.StreamWriter("C:\Users\salman\Desktop\Text" & filesWritten & ".txt")
    writer.WriteLine(Me.customer.Text + Me.txtcustomer.Text)
    writer.WriteLine(Me.todaystotal.Text + Me.txtsummarytotal.Text)
    writer.WriteLine(Me.average.Text + Me.txtaveragetotal.Text)
    writer.Close()
    filesWritten+=1
End Sub