标题: 报错内存不足 [打印本页] 作者: yakezone 时间: 2011-8-12 14:57 标题: 报错内存不足 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