[matson]

Толи лыжи не едут...
пытаюсь сделать проверку на чтении построчно

Код:

Dim F, i, s, fn, FSO, ForReading, AllTxt, listLines, str, x, arr_Line, my_arr(), y, z, nStrok, SearchString 
ForReading = 1
fn = "C:\Users\root\Desktop\log 2017-06-07.txt" '// <-- full path
arr_Line = 0
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.OpenTextFile(fn, ForReading, False, -2)
SearchString = "Теневая копия создана"

Do Until F.AtEndOfStream ' пока наступит конец файла
		Str = F.ReadLine
		If (InStr(1, Str, SearchString) > 0) Then
		MsgBox Str
		End If
Loop
F.Close

Но тишина! Хотя строчка, содержащая "Теневая копия создана" точно присутствует в файле