Ecriture fichier xml dans isolateStorage
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:
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.