在上一次Windows 10中,我在Visual Basic脚本(VBS)上发现了文件系统对象(FSO)中的错误。
即使我关闭了文件,也不会释放内存。
如果您在循环中读取文件以监视日志文件,则内存消耗将增长到无限。
在Windows 7及更早版本的Windows 10中,此问题不存在。
示例:
path = "d:\LocalData\ps05448\Desktop\Prueba.txt"
Const FOR_READING = 1
pausado = 0
'Paramos todo por las siguientes razones.
Do Until pausado = 1
Set oFso = CreateObject("Scripting.FileSystemObject")
Set file = oFso.OpenTextFile(path, FOR_READING)
Do Until file.AtEndOfStream
linea = file.ReadLine
If InStr(linea, "Linea de salida") > 0 Then
'WriteLog "No conecta con servidor", 0
pausado = 1
End If
Loop
file.Close
Set file = Nothing
Set oFso = Nothing
Loop
Prueba.txt
是一个没有退出文本的纯文本文件。