Set m_XmlDoc = New Msxml2.DOMDocument
 
  With m_XmlDoc
 
    '-- processing instructions --
    .InsertBefore .createProcessingInstruction(gc_XML_XML, gc_XML_XML_Version), _
      .ChildNodes(0)
 
    '-- root node --
    Set m_XmlRoot = .createElement(gc_XML_eSCOUT)
        m_XmlRoot.setAttribute gc_XML_Version, _
                               App.Major & "." & App.Minor & "." & App.Revision
        m_XmlRoot.setAttribute gc_XML_Timestamp, GetIsoTimestamp
 
        If Len(ProjectDbPath) > 0 Then
          m_XmlRoot.setAttribute gc_XML_ProjectDBVersion, _
                                 dbm.Db_getVersion(ProjectDbPath)
        End If
 
        If Len(FunctionLibraryDbPath) > 0 Then
          m_XmlRoot.setAttribute gc_XML_FunctionLibDBVersion, _
                                 dbm.Db_getVersion(FunctionLibraryDbPath)
        End If
 
        If Len(HardwareModuleDbPath) > 0 Then
          m_XmlRoot.setAttribute gc_XML_HardwareDBVersion, _
                                 dbm.Db_getVersion(HardwareModuleDbPath)
        End If
 
    .appendChild m_XmlRoot
 
    Dim e As Msxml2.IXMLDOMElement
    Set e = m_XmlDoc.createElement("paul")
    Call e.setAttribute("a1", "a")
    Call e.setAttribute("a2", "b")
 
    m_XmlRoot.appendChild e
 
   'dann speichern

Gruß
Dirk

--
?Get it right the first time

Beitrag wurde zuletzt am 22.06.10 um 15:59:02 editiert.