View Single Post

  #9 (permalink)  
Old 07-06-2009, 06:08 AM
ajojiraj ajojiraj is offline
Junior Member
 
Join Date: Jan 2009
Posts: 12
ajojiraj is on a distinguished road
Const XMLDataFile = "D:\InvoiceLoad\Regression Testing\LeaseInvGap8OPDE_COA.xml"
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = False
xmlDoc.Load(XMLDataFile)

Set node = xmlDoc.SelectSingleNode("/Header/To/Credential domain/Identity")
node.Text = "AN01000070708-T"

xmlDoc.SaveFile "D:\InvoiceLoad\Regression Testing\LeaseInvGap8OPDE_COA.xml"
Reply With Quote