Solution to: create subfolder in your application (within website), and add files created - XML files

Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'If Not Directory.Exists("C:\webapp\New Folder") Then
        Directory.CreateDirectory("C:\webapp\New Folder")
        ' Folder created message
        MessageBox.Show("Folder created!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
        'Else
        '' Folder already exists
        'MessageBox.Show("Folder already exists!", "", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        'End If

        XMLFiles()

    End Sub

Public Sub XMLFiles()
        Dim userID As String = "d"
        Dim fname As String = "ll"
        Dim lname As String = "tt"
        Dim subject As String = " subject"
        Dim message As String = "This message"


        Dim settings As New XmlWriterSettings()
        settings.Indent = True

        Using writer As XmlWriter = XmlWriter.Create("C:\webapp\New Folder\Info.xml", settings)
            writer.WriteStartDocument()
            writer.WriteStartElement("Info")
            writer.WriteStartElement("person")
            writer.WriteElementString("uid", userID)
            writer.WriteElementString("firstname", fname)
            writer.WriteElementString("lastname", lname)
            writer.WriteEndElement()
        End Using

        Using writer As XmlWriter = XmlWriter.Create("C:\webapp\New Folder\emailInfo.xml", settings)
            writer.WriteStartDocument()
            writer.WriteStartElement("emailInfo")
            writer.WriteElementString("subject", subject)
            writer.WriteElementString("message", message)
            writer.WriteEndElement()
        End Using
    End Sub