Imports System
Imports System.IO
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ' Existenz einer Datei prüfen
        ' wenn NEIN, dann neue anlegen und die erste Zeile schreiben
        If Not File.Exists("TestFile2.txt") Then
 
            Dim FStream As New FileStream("TestFile2.txt", FileMode.Create, _
              FileAccess.ReadWrite, FileShare.Read)
 
            Dim SWriter As New StreamWriter(FStream)
            ' Textzeile schreiben (mit autom. Zeilenumbruch!)
            SWriter.WriteLine("Erste Zeile!!!!!")
            SWriter.WriteLine(DateTime.Now.ToLongTimeString())
 
            SWriter.Close()
            FStream.Close()
        End If
 
        ' Wenn JA, dann bitte nur noch Zeilen hinzufügen!
        If File.Exists("TestFile2.txt") Then
 
            '   SBuilder.AppendLine("Zweite Zeile -- 2")
 
        End If
 
    End Sub
 
End Class