Ecrire à la suite d'un fichier

Bonjour,
J'ai ce bout de code qui me permet d'écrire dans un fichier

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Dim Logs as String= "C:\Inetpub\wwwroot\APPZAIN\Log\HistoriqueLogs.txt"
 Dim Jour as DateTime = DateTime.Now
 
Dim fs1 As IO.FileStream
fs1 = New IO.FileStream(Logs, IO.FileMode.OpenOrCreate)
            fs1.Close()
            'fs.Dispose()'
 
            Using sw As IO.StreamWriter = New IO.StreamWriter(Logs)
                '*** Création et inscription du prologue .'
			sw.WriteLine("")
            sw.WriteLine(" le mobile "+zeNum.text+" a été inseré à "+Jour)
			sw.WriteLine("")
  sw.Close()
                   End Using

Quand je lance le code, le fichier se rempli bien, mais quand je réalise l'action une nouvelle fois la ligne précédente est remplacée or j'aimerais qu'il m'écrive une nouvelle ligne à la suite de la précédente.

Merci bien