Hi,
You can use the following code to insert the slide element to add extra images to the album;
Private Sub InsertImage(ByVal jpegURL As String, _
ByVal dURL As String, _
ByVal title As String, _
ByVal width As Integer, _
ByVal height As Integer)
Dim doc As New XmlDocument
Dim filePath As String
filePath = "xml file path"
doc.Load(filePath)
Dim root As XmlNode = doc.DocumentElement
Dim nav As Xml.XPath.XPathNavigator = doc.CreateNavigator
nav = nav.SelectSingleNode("/flash_parameters/album") ' Select the album element
nav.AppendChildElement("", "slide", "", "") ' add the slide element into album
nav = nav.SelectSingleNode("/flash_parameters/album/slide[last()]") ' select the last inserted slide element
' add attributes to the selected/last inserted slide element
nav.CreateAttribute("", "jpegURL", "", jpegURL)
nav.CreateAttribute("", "d_URL", "", dURL)
nav.CreateAttribute("", "transition", "", "0")
nav.CreateAttribute("", "panzoom", "", "1")
nav.CreateAttribute("", "URLTarget", "", "0")
nav.CreateAttribute("", "phototime", "", "2")
nav.CreateAttribute("", "url", "", "")
nav.CreateAttribute("", "title", "", title)
nav.CreateAttribute("", "width", "", width)
nav.CreateAttribute("", "height", "", height)
doc.Save(filePath) ' save the xml file
End Sub
Hope this helps... :)
Jasmin