Hallo zusammen,
ich bin mir nicht sicher ob ich hier mit meiner Frage richtig bin....
Ich möchte eine XML-Datei mit folgenden Childs erstellen:
CalDat und User.
Wenn diese Datei vorhanden ist soll der nächste Eintrag vor allen angefügt werden.
Mein Ansatz sieht wie folgt aus:
Irgendwie funktioniert das anfügen beim 2. Aufruf nicht...
Kann mir da jemand weiterhelfen...
Danke
ich bin mir nicht sicher ob ich hier mit meiner Frage richtig bin....
Ich möchte eine XML-Datei mit folgenden Childs erstellen:
CalDat und User.
Wenn diese Datei vorhanden ist soll der nächste Eintrag vor allen angefügt werden.
Mein Ansatz sieht wie folgt aus:
Code:
On Error Goto errHandler Dim oDOM As DOMDocument Dim oRoot As IXMLDOMElement Dim oInstruct As IXMLDOMProcessingInstruction Dim oElemVN As IXMLDOMElement Dim oElemNN As IXMLDOMElement Dim oElemData As IXMLDOMElement Dim oDocType As IXMLDOMDocumentType Dim intIDX As Integer Dim strXMLInstruct As String Set oDOM = New DOMDocument If FSO.FileExists(App.Path & cnstBackSlash & cnstCalibrationFileName) = True Then oDOM.Load (App.Path & cnstBackSlash & cnstCalibrationFileName) Set oInstruct = oDOM.createProcessingInstruction("xml", "version=""1.0""" & strISO) Call oDOM.insertBefore(oInstruct, oDOM.childNodes.Item(0)) End If Set oRoot = oDOM.createElement("Calibration") If FSO.FileExists(App.Path & cnstBackSlash & cnstCalibrationFileName) = False Then oDOM.appendChild oRoot End If Set oElemData = oDOM.createElement("rsData") oRoot.appendChild oElemData Set oElemVN = oDOM.createElement("CalDate") oElemData.appendChild oElemVN oElemVN.Text = Now Set oElemNN = oDOM.createElement("User") oElemData.appendChild oElemNN oElemNN.Text = PstrUserDB Call oDOM.Save(App.Path & cnstBackSlash & cnstCalibrationFileName)
Kann mir da jemand weiterhelfen...
Danke