Imports System.Xml
 
Module Module_XML
 
    Public Sub XMLCreateProjectInfo(Optional ByVal PROJECT As String = "", _
      Optional ByVal PM As String = "", Optional ByVal PMTel As String = "", _
      Optional ByVal PMMail As String = "")
 
        Dim Datum As String = Format$(Date.Today, "yyyy-MM-dd")
 
        If Not System.IO.Directory.Exists(Form_PlanningGuide.XMLFileFolder) Then
            System.IO.Directory.CreateDirectory( _
              Form_PlanningGuide.XMLFileFolder)
        End If
 
        If Not IO.File.Exists(Form_PlanningGuide.XMLFile) Then
 
            Dim enc As New System.Text.UTF8Encoding         'Auswahl einer 
            ' Kodierungsart für die Zeichenablage
            Dim XMLobj As Xml.XmlTextWriter = New Xml.XmlTextWriter( _
              Form_PlanningGuide.XMLFile, enc)
 
            With XMLobj
 
                .Formatting = Xml.Formatting.Indented       'Einzug
                .Indentation = 4                            'um 4 Stellen
 
                .WriteStartDocument()
                .WriteStartElement("ProjectInfo")          '<ProjectInfo>
 
                .WriteStartElement("ProjectData")           '<ProjectData> 
                .WriteElementString("Project", PROJECT)         _
                  '<Project>...</Project>
                .WriteElementString("Land", Form_ProjectData.TextBox_Land.Text)
                .WriteElementString("Project", _
                  Form_ProjectData.TextBox_Project.Text)
                .WriteElementString("Version", _
                Form_ProjectData.TextBox_Version.Text)
                .WriteElementString("Inquiry", _
                Form_ProjectData.TextBox_Inquiry.Text)
                .WriteElementString("Country", _
                Form_ProjectData.TextBox_Country.Text)
                .WriteElementString("Company", _
                Form_ProjectData.TextBox_Company.Text)
                .WriteElementString("CompanyID", _
                Form_ProjectData.TextBox_CompanyID.Text)
                .WriteElementString("ContactName", _
                Form_ProjectData.ComboBox_ContactName.Text)
                .WriteElementString("ContactEMail", _
                Form_ProjectData.ComboBox_ContactEmail.Text)
 
                .WriteEndElement()
                .WriteEndElement()
 
                .WriteEndElement()                          '</ProjectInfo>
                .Close()
 
            End With
 
            XMLobj = Nothing
            enc = Nothing
 
            MsgBox("ProjectInfo.xml was created successfully")
 
        Else
            MsgBox("ProjectInfo.xml was already created!!")
        End If
 
    End Sub