Imports System.IO
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        SaveFileDialog1.InitialDirectory = "C:\" 'Standart-Ordner festlegen
        SaveFileDialog1.FileName = EditorIDTextBox.Text 'Dateiname festlegen
        SaveFileDialog1.Filter = "Textdateien (*.txt)|*.txt" 'Datei-Endung 
        ' festlegen
        Dim result As DialogResult = SaveFileDialog1.ShowDialog(Me)
        If (result = Windows.Forms.DialogResult.OK) Then
            'Wenn Datei noch nicht vorhanden dann erstellen
            Dim FStream As New FileStream(SaveFileDialog1.FileName, _
              FileMode.Create, FileAccess.ReadWrite, FileShare.Write)
            ' StreamWriter anlegen, um komfortabel zu schreiben
            Dim SWriter As New StreamWriter(FStream)
            SWriter.WriteLine("Text der gespeichert werden soll. Hier in mit" & _
              "Zeilenumbruch")
            SWriter.Write("Text der gespeichert werden soll. Hier in ohne" & _
            "Zeilenumbruch")
            'schliesen
            SWriter.Close()
            FStream.Close()
        End If
    End Sub
End Class

wintoolz.KeyLocker - Programm zum sicheren Verwalten von Passw?rten
wintoolz.Filmdatenbank - Verwaltungssoftware f?r Filme
wintoolz.CodeGallery - Programm zum speichern von Codeschnipseln