在vb里面怎样使用xml文件

Question

Private Sub Form_Load()
 Dim xml1 As New MSXML2.DOMDocument
'xml1.loadXML "<book>aaaaaa</book>"
 FileName = "books.xml"
'On Error Resume Next
 xml1.Load FileName
' MsgBox Err.Description & Err.Number
 MsgBox xml1.firstChild.nodeName'End If
End Sub
好像是load方法出错，但输出的错误编号为0,books.xml和应用程序在同一目录下面，请各位大侠指点一下。

Answer 1

文件要打开后,读出文件内容,再把内容Load.
 我在EVB中这样做的,我想在VB中大概如此.

Answer 2

要把文件读出来吗，然后用loadxml方法？

Answer 3

用绝对路径也不行，当输出xml1.firstChild.nodeName时出现“对象变量或with块变量未设置错误”

Answer 4

Dim xmlDoc As New Msxml2.DOMDocument40
xmlDoc.async = False
xmlDoc.Load ("C:\temp\books.xml")
MsgBox xmlDoc.xml

Answer 5

FileName =app.path & "\books.xml"

Answer 6

books.xml 文件如下：<?xml version="1.0" encoding="gb2312" ?>
<bookstore>
<book genre="autobiography" publicationdate="1981" ISBN="1-861003-11-0">
<title>The Autobiography of Benjamin Frankin</title>
<author>
<first-name>Benjamin</first-name>
<last-name>Franklin</last-name>
</author>
<price>8.99</price>
</book>
<book genre="novel" publicationdate="1967" ISBN="0-201-63361-2">
<title>The Confidence Man</title>
<author>
<first-name>Herman</first-name>
<last-name>Melville</last-name>
</author>
<price>11.99</price>
</book>
<book genre="philosophy" publicationdate="1991" ISBN="1-861001-57-6">
     //* <title>The Gorgias</title> *//
  <author>
<name>Plato</name>
</author>
  <price>9.99</price>
   </book>
</bookstore>