＋设为首页 ＋添加到收藏夹
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和应用程序在同一目录下面，请各位大侠指点一下。
没错啊
try:
Private Sub Form_Load()
On Error Resume Next
Dim xml1 As New MSXML2.DOMDocument
xml1.async = False
FileName = "books.xml"
If Not xml1.Load(FileName) Then
MsgBox "装载文件出错!"
Exit Sub
End If
MsgBox xml1.firstChild.nodeName
End Sub
FileName = App.Path & "\books.xml"
路径没错？
XML文件有效吗？
