10-24-2009, 04:13 PM
Hi,
Code:
Set Dc1 = CreateObject(”Msxml2.DOMDocument”)
Dc1.load(”filepath”)’file 1
Set Dc2 = CreateObject(”Msxml2.DOMDocument”)
Dc2.load(”filepath”)’file 2
Set List1= Dc1.DocumentElement.ChildNodes
Set List2= Dc2.DocumentElement.ChildNodes
If List1.length=List2.length Then’
msgbox “Put your required one"
For i = 0 to List1.length-1
If List1.item(i).Text=List2.item(i).Text Then
msgbox “Both are same"
Else
msgbox “Not same"
End If
Next
End If