Creating XML document using VB.NET

Imports System
Imports System.IO
Imports System.Text
 
Namespace SnippetTesterConsole
    Class Program
        Private Shared Sub Main()
            ' You don't have to use an XmlDocument
            ' You can add the data to a string
            ' and save the string to an xml file
            
            ' using System.Text;
            Dim xmlBuilder As New StringBuilder()
            xmlBuilder.Append("<?xml version=""1.0""?>")
            xmlBuilder.Append("<properties>")
            xmlBuilder.AppendFormat("<scan_user>{0}</scan_user>", "COMPASS")
            xmlBuilder.AppendFormat("<ip_address>{0}</ip_address>", "123.123.123.123")
            xmlBuilder.AppendFormat("<create_time>{0}</create_time>", DateTime.Now)
            
            Dim directoryInfo As New DirectoryInfo("C:\FolderPath")
            
            Dim files As FileInfo() = directoryInfo.GetFiles()
            
            ' I'm using this to just simulate numbers
            ' You'll need to remove this line
            ' and use the actual logic in your code
            Dim rnd As New Random()
            
            For Each file As FileInfo In files
                ' I'm not sure how you get the data
                ' so I'm just going to add dummy data
                xmlBuilder.AppendFormat("<document verification_doc_id=""{0}"">", rnd.[Next]())
                xmlBuilder.AppendFormat("<document_name>{0}</document_name>", file.Name)
                xmlBuilder.AppendFormat("<page page_num=""{0}"">", rnd.[Next]())
                xmlBuilder.AppendFormat("<filename>{0}</filename>", file.Name)
                xmlBuilder.Append("</page>")
                xmlBuilder.AppendFormat("<page page_num=""{0}"">", rnd.[Next]())
                xmlBuilder.AppendFormat("<filename>{0}</filename>", file.Name)
                xmlBuilder.Append("</page>")
                xmlBuilder.Append("</document>")
            Next
            xmlBuilder.Append("</properties>")
            
            'using System.IO;
            Dim xmlFile As New StreamWriter("C:\FolderPath\XmlFile.xml")
            xmlFile.WriteLine(xmlBuilder.ToString())
            xmlFile.Close()
        End Sub
    End Class
End Namespace
                                              

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: