Bonjour,

J'ai un problème d'utilisation de StreamWriter pour ajouter des données dans un fichier texte. dans le code suivant les données que j'insert écrasent les données déjà présentes alors que je voudrais les ajouter aux données déjà existantes.

Merci pour votre aide !

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Label1.Text = TextBox1.Text
 
        zone = TextBox1.Text
 
        Dim path As String = "\FICHIER.TXT"
        Using sw As New StreamWriter(path, True)
            sw.AutoFlush = False
            sw.WriteLine(zone)
            sw.Close()
        End Using
 
    End Sub