如何检测XML文件是否加载成功？
XMLDOM.load Server.MapPath("1.xml")
name = XmlDom.documentElement.SelectSingleNode("/all/name").text

当1.xml不存在时，后面跟着的解析XML的会报错，我在网上找了下相关文档，修改了下代码。

XMLDOM.load Server.MapPath("1.xml")
If XMLDOM.readyState = 4 Then
  name = XmlDom.documentElement.SelectSingleNode("/all/name").text
End If

还是会报错，应该如何判断XML是否加载？求教，谢谢。

------解决方案--------------------
获取文件扩展名：
Function getExtn(text)
text = Left(text,inStr(text,".")-1)
getExtn = text
End Function

------解决方案--------------------
没用过, 给个建议, 
是否可以用 XMLDOM.onload 事件做个函数处理进行判断.
另外, 也可以使用 error 错误处理, 获取错误代码来判断是否失败.