Private Sub FileLengthDemo()
 
        Dim filename As String = "C:\daten\textdemo.txt"
 
        Dim enc As System.Text.Encoding = System.Text.Encoding.UTF8
 
        My.Computer.FileSystem.WriteAllText(filename, "Das ist ein Text", _
          False, enc)
 
        Dim fl0 As Long = New IO.FileInfo(filename).Length
 
        Dim fl1, fl2, fl3, fl4, fl5 As Long
 
        Using fs As New IO.FileStream(filename, IO.FileMode.Open, _
          IO.FileAccess.ReadWrite)
 
            fl1 = fs.Length
 
            fs.Position = fs.Length
 
            Dim anh As String = vbCrLf & "Angehängter Text"
            Dim textbytes() As Byte = enc.GetBytes(anh)
 
            fs.Write(textbytes, 0, textbytes.Length)
 
            fl2 = fs.Length  'aktuelle Länge
 
            fl3 = FileLen(filename) 'Länge beim Öffnen
 
            fs.Flush() 'alles speichern
 
            fl4 = FileLen(filename) 'aktuelle Länge
 
        End Using
 
        fl5 = FileLen(filename)
 
    End Sub