' Dateiname zusammensetzen
        Dim FileName As String = "C:\Ziel\" & TextBox1.Text & _
          DateTime.Now.ToString("_dd_MM_yyyy__HH_mm") & ".txt"
        ' Datei erstellen und öffnen
        Dim fs As New IO.FileStream(FileName, IO.FileMode.Create)
        ' Text in ein Byte-Array umwandeln
        Dim b() As Byte
        b = System.Text.Encoding.Unicode.GetBytes(RichTextBox1.Text)
        ' Byte-Array in die Datei schreiben
        fs.Write(b, 0, b.Length)
        ' Datei wieder schließen
        fs.Close()

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co