Jaimerai ecrir un fichier xml:
ce fichier doit etre creer si il n'existe pas, et on y met les données.

si il existe deja on a joute a la suite du fichier les données

Voila ma fonction:
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
 
Function save2XML(idScore as Double, isAuth as String)
	Dim isFileName		as String = isAuth & ".xml"
	Dim isDate			as String = Now()
	Dim ioDs			as New DataSet()
	Dim ioDateColumns	as New DataColumn()
	Dim ioScoreColumns	as New DataColumn()
	Dim ioScoreRow		as DataRow ' on n'instancie pas encore
	Dim ioFileStream 	as New System.IO.FileStream(Server.MapPath(isFileName), System.IO.FileMode.Create)
	Dim ioXmlWriter As New System.Xml.XmlTextWriter(ioFileStream, System.Text.Encoding.Utf8)
 
	Try
		ioDs.ReadXml(Server.MapPath(isFileName))
		ioScoreRow = ioDs.Tables("session").NewRow()
		ioScoreRow("Date") = isDate
		ioScoreRow("Score") = idScore
		ioDs.Tables("session").Rows.Add(ioScoreRow)
		ioDs.WriteXml(ioXmlWriter)
    	ioXmlWriter.Close()
	Catch
		ioDs.Tables.Add("session")
		ioDateColumns.DataType = System.Type.GetType("System.String")
		ioScoreColumns.DataType = System.Type.GetType("System.Double")
		ioDateColumns.ColumnName = "Date"
		ioScoreColumns.ColumnName = "Score"
		ioDs.Tables("session").Columns.Add(ioDateColumns)
		ioDs.Tables("session").Columns.Add(ioScoreColumns)
		ioScoreRow = ioDs.Tables("session").NewRow()
		ioScoreRow("Date") = isDate
		ioScoreRow("Score") = idScore
		ioDs.Tables("session").Rows.Add(ioScoreRow)
 
		ioDs.WriteXml(ioXmlWriter)
    	ioXmlWriter.Close()
 
	End try
 
End Function
Avec ce code jarrive a creer le fichier et a y ecrir, mais j'efface a chauqe foit son contenu. Il faudrais que j'arrive a ecrir a la suite.

Merci