Private Sub DateiOpenTS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateiOpenTS.Click
 
Dim ofd As New OpenFileDialog
ofd.InitialDirectory = "C:\Users\Italystyle\Desktop"
ofd.Filter = "Texte (*.txt) | *txt"
ofd.Title = "Datei ffnen"
ofd.ShowDialog()
 
Dim fs As New FileStream(ofd.FileName(), FileMode.Open)
Dim sr As New StreamReader(fs)
Dim Zeilen As String
Do Until sr.Peek() = -1
Zeilen = sr.ReadLine()
txt.Text &= Zeilen & vbCrLf
Loop
sr.Close()
 
End Sub
 
 
 
Private Sub DateiSaveTS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateiSaveTS.Click
 
Dim sfd As New SaveFileDialog
sfd.InitialDirectory = "C:\Users\Italystyle\Desktop"
sfd.Filter = "Texte (*.txt) | *txt"
sfd.Title = "Datei speichern"
sfd.ShowDialog()
 
Dim fs As New FileStream(sfd.FileName() & ".txt", FileMode.Create)
Dim sw As New StreamWriter(fs)
sw.WriteLine(txt.Text)
sw.Close()
 
End Sub