Imports System.IO
 
Public Class Form1
 
    Private Sub SpeichernToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles SpeichernToolStripMenuItem.Click
        Speichern()
    End Sub
 
    Private Sub ÖffnenToolStripMenuItem_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles ÖffnenToolStripMenuItem.Click
        Öffnen()
    End Sub
 
    Private Sub Speichern()
        Dim saveFileDialog1 As New SaveFileDialog()
        saveFileDialog1.Filter = "Textdatei (*.txt)|*.txt|Windows Batch-Script (" & _
          "*.bat)|*.bat |Visual-Basic-Script (*.vbs) | *.vbs |sonstige | *.*"
        saveFileDialog1.FilterIndex = 1
        saveFileDialog1.RestoreDirectory = True
        saveFileDialog1.ShowDialog()
        If saveFileDialog1.FileName <> "" Then
            FileOpen(1, saveFileDialog1.FileName, OpenMode.Output)
            PrintLine(1, RichTextBox1.Text)
            FileClose(1)
        End If
    End Sub
    Private Sub Öffnen()
        Dim dlgÖffnen As New OpenFileDialog
        With dlgÖffnen
 
            .Filter = "Textdatei (*.txt)|*.txt|Windows Batch-Script (" & _
              "*.bat)|*.bat |Visual-Basic-Script (*.vbs) | *.vbs |sonstige |" & _
              "*.*"
            .ShowDialog()
 
        End With
 
        If dlgÖffnen.FileName <> "" Then
            Dim obFi As FileStream = New FileStream(dlgÖffnen.FileName, _
              FileMode.Open)
            Dim obStw As StreamReader = New StreamReader(obFi)
 
            RichTextBox1.Text = obStw.ReadToEnd
            obStw.Close()
 
        End If
    End Sub
 
End Class