Bonjour,

Je veux ecrire dans un fichier xml qui est stocker dans l'isolatestorage.

J'ajout ce passe bien mais dès que je rajoute une ligne celà efface toutes les autres du coup je n'ai que le dernier ajout. Voilà le code :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 Using isoStore As IsolatedStorageFile = _
                    IsolatedStorageFile.GetUserStoreForApplication()
 
                    ' Create new file
                    Using isoStream As IsolatedStorageFileStream = _
                        New IsolatedStorageFileStream("recettes.xml", _
                            FileMode.OpenOrCreate, isoStore)
 
                        ' Write to the Isolated Storage for the user.
                        Dim settings As XmlWriterSettings = New XmlWriterSettings()
                        settings.Indent = True
                        ' Create an XmlWriter.
                        Using writer As XmlWriter = XmlWriter.Create(isoStream, settings)
 
                            writer.WriteStartDocument()
 
                            writer.WriteStartElement("recettes")
 
                            writer.WriteStartElement("recette")
 
                            writer.WriteAttributeString("Nom", AjoutRecette.edName.Text)
                            writer.WriteAttributeString("Type", CStr(AjoutRecette.cbType.SelectedIndex + 1))
                            writer.WriteAttributeString("Url", AjoutRecette.edUrl.Text)
                            If AjoutRecette.raNote.Value Is Nothing Then
                                writer.WriteAttributeString("Note", CStr(0))
                            Else
                                writer.WriteAttributeString("Note", CStr(AjoutRecette.raNote.Value))
                            End If
 
                            writer.WriteAttributeString("Comm", AjoutRecette.edComm.Text)
                            writer.WriteAttributeString("ing1", AjoutRecette.edIng1.Text)
                            writer.WriteAttributeString("ing2", AjoutRecette.edIng2.Text)
                            writer.WriteAttributeString("ing3", AjoutRecette.edIng3.Text)
                            writer.WriteAttributeString("ing4", AjoutRecette.edIng4.Text)
                            writer.WriteAttributeString("vin", AjoutRecette.edVin.Text)
 
                            If AjoutRecette.ImgPhoto.Source IsNot Nothing Then
                                If SetDetailImage(AjoutRecette.Strm, isoStore, AjoutRecette.edName.Text & ".jpg") Then
                                    writer.WriteAttributeString("img", AjoutRecette.edName.Text & ".jpg")
                                Else
                                    writer.WriteAttributeString("img", "")
                                End If
                            End If
 
 
                            writer.WriteEndElement()
 
                            writer.WriteEndElement()
 
                            writer.WriteEndDocument()
 
                            writer.Close()
 
 
                        End Using
 
                    End Using
Voyez vous une erreur dans cette méthode??

Merci d'avance pour vos réponses.

Cordialement, Nicolas.