B4J Question Write in file

[haddad]

Hello
I want to write in a file but I always have the last text that replaces the first !
How could I do?

Help me plz

 

[Harris]

    Dim TextWriter1 As TextWriter
    TextWriter1.Initialize(File.OpenOutput(File.DirRootExternal, "Test.txt", True))  ' set last param to true to append to the existing file...
    For i = 1 To 10
        TextWriter1.WriteLine("Line  " & i)
    Next
    TextWriter1.Close