报错内存不足

yakezone

Dim fso, MyFile,tmp,i
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("c:\test\log\tmp.txt", 1 , False)
i = 0       
Dim AllDisk()       
Do Until MyFile.AtEndOfLine               
                tmp=MyFile.ReadLine
                If tmp="ls /dev | grep -i sd[a-z]$" Then
                else
                                Redim Preserve AllDisk(i)       
                                AllDisk(i) = "/dev/"&tmp       
                                i = i + 1
                End If
loop
i = i - 2
Redim Preserve AllDisk(i)
MyFile.Close

执行到红色的那里 报错了。 内存不足。。
什么情况。 上午用的时候还正常

yakezone

概率性出现。  出现是因为do...loop这个段循环未执行，而直接执行了下面的-2。
偶尔会出现这种情况。   原因没弄明白。

heqingbluesky

重启QTP试试，变量不是动态加载的，所以内存用完了。