Imports System.Xml
Imports System.IO
Public Class frmAddBirthDay
    Dim XMLPath As String = System.Configuration.ConfigurationManager.AppSettings("XMLPath") & "\" & "BirthDay.xml" 'Define XMLPath in app.config
    Private Sub btnWriteXML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnWriteXML.Click
        If File.Exists(XMLPath) Then
            WriteXML()
        Else
            CreateXML()
        End If
    End Sub
    Private Sub WriteXML()
        If txtName.Text = "" Then
            MessageBox.Show("Please Enter Name", "BIRTH DAY", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            Dim xmldoc As New Xml.XmlDocument
            xmldoc.Load(XMLPath)
            Dim node As XmlNode
            node = xmldoc.CreateNode(XmlNodeType.Element, "BirthDay", "")
            Dim Title As XmlNode = xmldoc.CreateElement("Name")
            Dim Title1 As XmlNode = xmldoc.CreateElement("BirthDate", "")
            Title.InnerText = txtName.Text
            Title1.InnerText = dtpBirthDate.Text
            node.AppendChild(Title)
            node.AppendChild(Title1)
            xmldoc.DocumentElement.AppendChild(node)
            xmldoc.Save(XMLPath)
            MessageBox.Show(txtName.Text & " '" & "Birth Day Added Sucessfully", "BIRTHDAY", MessageBoxButtons.OK, MessageBoxIcon.Information)
        End If
    End Sub
    Private Sub btnCreateXML_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateXML.Click
        CreateXML()
    End Sub
    Private Sub createNode(ByVal Name As String, ByVal BirthDay As String, ByVal writer As XmlTextWriter)
        writer.WriteStartElement("BirthDayDetails")
        writer.WriteStartElement("Name")
        writer.WriteString(Name)
        writer.WriteEndElement()
        writer.WriteStartElement("BirthDay")
        writer.WriteString(BirthDay)
        writer.WriteEndElement()
        'writer.WriteEndElement()
    End Sub
    Private Sub CreateXML()
        If txtName.Text = "" Then
            MessageBox.Show("Please Enter Name", "BIRTH DAY", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            Dim writer As New XmlTextWriter(XMLPath, System.Text.Encoding.UTF8)
            writer.WriteStartDocument(True)
            writer.Formatting = Formatting.Indented
            writer.Indentation = 2
            writer.WriteStartElement("BirthDays")
            createNode(txtName.Text, dtpBirthDate.Text, writer)
            writer.WriteEndElement()
            writer.WriteEndDocument()
            writer.Close()
        End If
    End Sub
    Private Sub frmAddBirthDay_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists(XMLPath) Then
            btnWriteXML.Visible = True
            btnCreateXML.Visible = False
        Else
            btnCreateXML.Visible = True
            btnWriteXML.Visible = False
        End If
    End Sub
End Class