我在调用DLL文件里,运行一段时间后提示_实时错误'91',对象变量或WITH块变量未设置,,正确就结贴

Question

代码如下,出现了两回错误,第一回,我用系统还原,就能用了.
第二回,运行了有十分钟,又提示错误:
实时错误'91',对象变量或WITH块变量未设置,
和原来的错误提示不一样..
原来的是:实时错误'91',未设置变量或WITH BLOCK 变量我在工程中引用了Microsoft xml,version 2.0 (msxml.dll)
添加了一个TIMER控件,在Timer1_Timer事件中,一直运行处理XML格式的文件.dim xml As DOMDocument
Private Sub Timer1_Timer()    MyFile = "F:\MYXML\" 
    
    xmlDir = Dir(MyFile & "*.xml")
    Set xml = New DOMDocument
    Call xml.Load(MyFile & xmlDir)
    
    Dim root As IXMLDOMElement
    Set root = xml.documentElement
    strXml = root.childNodes.nextNode.xml '''''在这出错.
    ................
    ................
    ................
    ................
    ................
    ...XML的内容处理
    ................
    ................
    ................
    ................
    ................
    
end sub

Answer 1

把这句
Call xml.Load(MyFile & xmlDir)改成这样试试
If xml.Load(MyFile & xmlDir) = False Then Exit Sub