Writing multiple entires to an XML

[maylortaylor]

I am trying to get my XML file to add more entries. Right now, when i run my program it makes the xml below. But when i run the program a second time it replaces the XML with the new information.

I want to be able multiple 'jobs' or entries.

<Job> <JobName>e</JobName> <Source>C:\Users\Public\Pictures\Sample Pictures\Desert.jpg</Source> <Destination>C:\Users\Public\Pictures\Sample Pictures\a.zip</Destination> <Timestamp>11/21/2012 12:12:04 PM</Timestamp> </Job>

Example: First time i run the program, i name the job "a". After program finishes and XML is written i want to be able to then run the program again with a job named "b" and have it added to the xml file. This way i can search for specific jobs.

Below is the code where I write the XML code. I am thinking my issue is here and could be solved with a "for each" loop..but i'm clueless.

Dim filesEnum2 As IEnumerator
        filesEnum2 = OpenFileDialog1.FileNames.GetEnumerator()
 
        With xmlwrt
            .WriteStartDocument()
            .WriteComment("XML Backup.")
            .WriteStartElement("Job")
 
            Dim jName As String = JobName.Text.ToString
            .WriteElementString("JobName", jName.ToString)
 
 
            While filesEnum2.MoveNext
                .WriteStartElement("Source")
                .WriteString(filesEnum2.Current)
                .WriteEndElement()
            End While
 

[maylortaylor]

OK, i've gotten a lot of the issues sorted using the AppendChild() method. Now my XML is looking like this

<Jobs> 
-<Job> 
<JobName>a</JobName> 
<Source>C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg</Source> <Source>C:\Users\Public\Pictures\Sample Pictures\Desert.jpg</Source> 
<Destination>C:\Users\Public\Pictures\Sample Pictures\a.zip</Destination> 
<Timestamp>11/21/2012 4:06:14 PM</Timestamp> </Job> 
 
-<Job> <JobName>e</JobName> 
<Source>C:\Users\Matt Taylor\Pictures\Alex-Grey-Vision-Crystal.jpg</Source> 
<Destination>C:\Users\Matt Taylor\Pictures\e.zip</Destination> 
<Timestamp>11/21/2012 4:21:37 PM</Timestamp> </Job> </Jobs>
 

However, now my issues is that I am only getting a single file as my source even though i have multiple files selected. I know this is a simple solution, my brain is just fried.

Below is the code for calling the appendchild methods. In case that helps.

Dim doc As New XmlDocument()
            doc.Load("C:\Users\Matt Taylor\Desktop\Backup\Backup.xml")
Dim jName As XmlElement = doc.CreateElement("JobName")
Dim jsource As XmlElement = doc.CreateElement("Source")
job.AppendChild(jName)
job.AppendChild(jsource)
doc.DocumentElement.AppendChild(job)
 
jName.Innertext = jobName.text.tostring
 
While filesEnum3.movenext
jsource.InnerText = filesEnum3.Current
jsource.WriteTo(jsource.InnerText)
End While
 
 

I'm not too hot with VB, so I'm not sure if the "filesEnum3.movenext" and ".current" lines are useful. This is the method i used to have the info print to the XML in the first place..so i figured i could just copy it and it would work. apparently not >,<