Vbscript UFT 12.01中的system.OutOfMemoryException

我在一个文件夹中有46个XML文件。我必须阅读所有这些文件，并在其中添加一些列信息

我写了这个脚本：

Dim fso,f
Set fso=createobject("scripting.filesystemobject")
Set f=fso.GetFolder("C:\Users\Administrator\Desktop\XML FILES\songs\13102276_20140906")
Set xmlObj = XMLUtil.CreateXML()
For each x in f.Files
    filename = x
    print filename
    wait (5)
    xmlObj.LoadFile(filename)
    wait 1
    Allduration=chargessummary("/SUBCUSTBRK/ITEMIZED/TRANSACTION/CALL_TYPES/DATA/R/C29")
    print "Allduration" & "=" & Allduration
    set xmlObj = nothing
Next
function chargessummary(path)
    Set charges = xmlObj.ChildElementsByPath(path)
    sum = 0 
    For i = 1 to charges.Count
        'Print "pstn c6 " & i &"=" &  pstncharges.Item(i).Value()
        sum = sum + charges.Item(i).Value()

    Next
    chargessummary = sum

End function

但是，此错误显示为：

system.OutOfMemoryException

---

我应该怎么做才能修复它呢？

我认为这不是错误消息的答案，但是您应该将

设置xmlObj=XMLUtil.CreateXML（）

移动到每个

循环的
内部，因为在第二个文件中，
xmlObj
将是
无
，并且您在尝试调用
加载文件（）时会出错
。您的XML文件有多大？我甚至尝试将Set xmlObj=XMLUtil.CreateXML（）放在foreach循环中。但我得到了相同的错误。我所有的46个XML文件大小都在3.5GB左右。@shivajumar每个文件3.5GB？让这个脚本为单个文件运行，然后依次为每个文件运行（例如从批处理文件运行）可能会更好-它将给系统一个清除内存的机会Total 46 xml文件大小为3.5GB..甚至我也尝试调用单个xml文件。但我得到了相同的错误。