Option Explicit
 
Const FileName = "c:\test.xml"
Dim XDoc As MSXML.DOMDocument
 
Private Sub Form_Load()
    BauMalNeXMLDatei
    OpenXMLDoc FileName
    lblTest.Caption = ReadXMLAttribute("Hallo/Tralala/Blabla", "Temperatur")
    Set XDoc = Nothing
End Sub
 
Private Sub BauMalNeXMLDatei()
    Dim xn As MSXML.IXMLDOMNode
    Dim xn2 As MSXML.IXMLDOMNode
    Dim xa As MSXML.IXMLDOMAttribute
 
    ' Neues XML Document im lokalen Speicher erstellen
    Set XDoc = New MSXML.DOMDocument
 
    ' 1. Knoten erstellen
    Set xn = XDoc.createNode(1, "Hallo", "")
    XDoc.appendChild xn
 
    ' Noch einen Knoten erstellen
    Set xn = XDoc.createNode(1, "Tralala", "")
 
    ' Knoten Tralala als Unterknoten von Hallo anfügen
    Set xn2 = XDoc.selectSingleNode("Hallo")
    xn2.appendChild xn
 
    ' Knoten Blabla erstellen
    Set xn = XDoc.createNode(1, "Blabla", "")
    'Attribut Temperatur mit Wert 20 erstellen unter Blabla erstellen
    Set xa = XDoc.createAttribute("Temperatur")
    xa.Text = 204321
    xn.Attributes.setNamedItem xa
'    Set xa.parentNode = xn
 
    ' Jetzt Blabla als unterknoten unter Hallo->Tralala einbauen
    Set xn2 = XDoc.selectSingleNode("Hallo/Tralala")
    xn2.appendChild xn
 
    ' Auf Festplatte Speichern
    XDoc.save FileName
    ' Speicher wieder freigeben
    Set XDoc = Nothing
End Sub
 
Private Sub OpenXMLDoc(ByVal FilePath As String)
    Set XDoc = New MSXML.DOMDocument
    XDoc.Load FilePath
End Sub
 
Private Function ReadXMLAttribute(ByVal XPath As String, ByVal AttName As _
  String) As String
 XDoc.selectSingleNode(XPath).selectSingleNode(XPath).selectSingleNode( _
 XPath).Attributes.getNamedItem (AttName)
End Function

IHR SEID ALLE SO
mfG
dereric


P.S.: schreibt mir eine eMail