Discussion :

[maloue]

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

[Sokhz]

Bizarre, le booléen est censé bien indiquer que l'on passe en mode Append. Par contre, cela ne fonctionne que si le fichier existe déjà.

Sinon tu peux faire comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Using fs as new FileStream("\FICHIER.TXT",FileMode.Append, FileAccess.Write))
     Using sw as new StreamWriter(fs))
          sw.WriteLine(zone)
     End Using
End Using

Penser à bien fermer les flux après leurs utilisations

[maloue]

Merci

Mais pas mieux !

Précision qui n'est peut être pas négligeable l'environement est WindowsCE.

[Sokhz]

"\FICHIER.TXT" .. Essaie avec "C:\Test.txt" pour voir.

[maloue]

Il n'est pas possible de préciser un volume car il n'éxiste pas de disk C:

Il n'éxiste qu'un environnement "Mon Pocket PC" qui est le volume de stockage.

Le fichier FICHIER.TXT se crée dans Mon Pocket PC\FICHIER.TXT

[Pol63]

System.IO.File.AppendText

[maloue]

Merci pour vos réponses.
Tout fonctionnait bien. Grosse erreur de ma part je testais sur un émulateur de Pocket Pc qui à chaque démarrage réinitialisait son disque virtuel !