How to serialize XML to file?

Hi, Check the following snippet of code, which writes and reads set of file names from the ArrayList object to and from an Xml file . . . Example: To Save the file names: Dim files As New ArrayList files.Add("A.Txt") files.Add("B.Txt") files.Add("C.Txt") Dim dir As New XmlDirectory dir.SetFileNames(files) To Read the file names: Dim i As Integer Dim dir As New XmlDirectory Dim files As ArrayList = dir.GetFileNames() For i = 0 To files.Count - 1 MsgBox(files(i).ToString) Next Check the following class . . . Imports System.Xml Imports System.Collections Public Class XmlDirectory ' ' Used to get the file names from the xml file . . . ' Public Function GetFileNames() As ArrayList Dim fileNames As New ArrayList Dim Name As String ' ' Open a new XmlTextReader . . . ' Dim xreader As New XmlTextReader("Directory.Xml") If xreader.IsStartElement("Directory") Then xreader.ReadStartElement("Directory") While (xreader.IsStartElement("File")) xreader.ReadStartElement("File") Name = xreader.ReadString() fileNames.Add(Name) xreader.ReadEndElement() End While End If xreader.Close() Return fileNames End Function ' ' Used to save the file names into an xml file . . . ' Public Sub SetFileNames(ByVal fileNames As ArrayList) ' ' Create a new XmlTextWriter . . . ' Dim xwriter As New XmlTextWriter("Directory.Xml", System.Text.Encoding.UTF8) Dim i As Integer Dim Name As String ' ' Write the root tag name . .. ' xwriter.WriteStartElement("Directory") For i = 0 To fileNames.Count - 1 Name = fileNames(i).ToString() xwriter.WriteStartElement("File") xwriter.WriteString(Name) xwriter.WriteEndElement() Next xwriter.WriteEndElement() xwriter.Close() End Sub End Class Hope this helps . . . Cheers, Kanna