Dim FStream As New FileStream("Test.txt", FileMode.Create, _
  FileAccess.ReadWrite, FileShare.None)

Zitat:

[u]FileMode.Append: Öffnet die Datei und bewegt den Positionszeiger ans Ende der Datei, so dass z.B. bei Schreiben von Daten, diese an das Ende angehängt werden. [u]FileMode.Create: Erstellt eine neue Datei. Falls die Datei allerdings schon existiert, so wird sie gnadenlos überschrieben. [u]FileMode.CreateNew: Erstellt eine neue Datei. Falls an dem angegebenen Pfad schon eine Datei liegt, bekommen sie eine IOException an der Kopf geworfen. [u]FileMode.Open: Öffnet eine schon existierende Datei. Falls die Datei nicht existiert, erhalten Sie eine IOException. [u]FileMode.OpenOrCreate: Sofern die angegebene Datei nicht schon existiert, wird eine neue Datei angelegt. Andernfalls wird die schon existierende Datei geöffnet. [u]FileMode.Truncate: Öffnet eine Datei und setzt deren Länge auf Null. Das jeder Versuch des Lesens gleich nach dem Lesen also schiefgeht, sollte klar sein.

Dim DateiName as string
Dim Str as FileStream
Try
    If File.Exists(DateiName) Then
        Str = New FileStream(DateiName, FileMode.Truncate, _
          FileAccess.Write,FileShare.None)
    Else
        Str = New FileStream(DateiName, FileMode.CreateNew, _
          FileAccess.Write,FileShare.None)
    End If
 
    Using sw As StreamWriter = new StreamWriter(Str)
        sw.WriteLine("Hallo!")
        sw.Close()
    End Using
Finally
    If Str isnot nothing Then
        Str.Close()
        Str = nothing
    End If
End Try