zero roofer
Legacy Member
Hallo,
Ik probeer een programma te schrijven waardoor ik ingevoerde waarden opsla in een tekstbestand. In zekere zin lukt dit, maar telkens als ik nieuwe waarden wil toevoegen overschrijft hij de vorige tekst. Hieronder de code die ik gebruik:
Dit staat onder de knop voor het toevoegen in een andere form dan de hoofdform:
En dit staat in de hoofdform onder form1.load:
Iemand een idee wat ik mis doe?
Ik probeer een programma te schrijven waardoor ik ingevoerde waarden opsla in een tekstbestand. In zekere zin lukt dit, maar telkens als ik nieuwe waarden wil toevoegen overschrijft hij de vorige tekst. Hieronder de code die ik gebruik:
Dit staat onder de knop voor het toevoegen in een andere form dan de hoofdform:
Code:
Dim FILE_NAME As String = "C:\klanten.txt"
If System.IO.File.Exists(FILE_NAME) = True Then
Dim objWriter As New System.IO.StreamWriter(FILE_NAME)
objWriter.WriteLine(txtNaam.Text)
objWriter.WriteLine(txtVnaam.Text)
objWriter.WriteLine(txtStraat.Text)
objWriter.WriteLine(txtPC.Text)
objWriter.WriteLine(txtGemeente.Text)
objWriter.WriteLine(txtTel.Text)
objWriter.WriteLine(txtMail.Text)
objWriter.WriteLine()
objWriter.WriteLine()
objWriter.WriteLine()
objWriter.Close()
MsgBox("Klant opgeslagen")
Else
MsgBox("Er is een fout opgetreden, bestand kan niet gevonden worden.")
End IfEn dit staat in de hoofdform onder form1.load:
Code:
Dim FILE_NAME As String = "C:\klanten.txt"
Dim art As String = "C:\artikels.txt"
If System.IO.File.Exists(FILE_NAME) = False Then
My.Computer.FileSystem.WriteAllText("C:\klanten.txt", String.Empty, False)
End If
If System.IO.File.Exists(art) = False Then
My.Computer.FileSystem.WriteAllText("C:\artikels.txt", String.Empty, False)
End IfIemand een idee wat ik mis doe?
