[vb] xml 특정 노드 제거

Dim i As Integer
Dim objDOMDocument As DOMDocument 'XMLDocument
Dim objNodeList As IXMLDOMNodeList 'XMLNodeList 몇개나 있는지 알려고

Dim objNode As IXMLDOMNode

'Set objDOMDocument = Server.CreateObject("microsoft.XMLDOM") 'asp 용
Set objDOMDocument = New DOMDocument '동적메모리 설정
objDOMDocument.async = False
objDOMDocument.Load ("test.xml") 'text xml 파일 불러오기 string 은 LoadXml

Set objNodeList = objDOMDocument.getElementsByTagName("books/book") '로드 찾기
If objNodeList.length Then
For i = 0 To objNodeList.length - 1 '" node 갯수만큼 루프를 돈다. 2개면 2번
If objNodeList.Item(i).selectSingleNode("Name").nodeTypedValue = "DEL" Then
Set objNode = objNodeList.Item(i).firstChild.parentNode
objNodeList.Item(i).parentNode.removeChild objNode
end if
Next
End If

MsgBox objDOMDocument.xml