Ввод данных за пределами файла, в чем причина?

Question

[hesy]

Dim fso, MyFile, str, newStr, num, i
i = 0
Set fso = CreateObject("Scripting.FileSystemObject") 
Set MyFile=fso.OpenTextFile("data.txt", 1, True) 
Do While MyFile.AtEndOfStream<>True 
str = MyFile.ReadLine
If (Len(str) <> 0) Then
'str = split(MyFile.ReadLine, ":")
newStr = split(str, "/rus/")
num = UBound(newStr)
i = i + 1
Msgbox newStr(num)

End If

Loop

Ругается на 9 строку:
newStr = split(str, "/rus/")

Ввод данных за пределами файла

Строка НЕ пустая, всю голову сломал.
В чем причина может быть?

Comments

[h8nor]

Если строка НЕ пустая, может так (читать файл в Unicode)?

Set MyFile=fso.OpenTextFile("data.txt", 1, True, -1)

Answer 1

[Igor_Ya]

Это ошибка изменения переменных другим процессом. Возможно вы не закрыли поток FileSystemObject.