VBScript не будет читать файл после 8 МБ

Question

У меня есть файл, написанный в VBS, который не читает файл после примерно 8 МБ. В настоящее время я использую "Scripting.FileSystemObject". Когда я тестирую код, я замечаю, что он работает нормально до строки ~ 79500, то есть когда «AtEndOfStream» просто приводит к значению True. Я искал документацию, но она, кажется, не существует.

Код должен показывать дублирующую информацию о файле и помещать ее в отдельный файл, который работает достаточно хорошо до этой строки. Это раздел кода, который дает мне проблему (это вторая функция чтения, которую я имею в коде):

Set first = fso.OpenTextFile(filePath + firstFileName)
Set secondFile = fso.OpenTextFile(filePath + secondFileName)
count = 0
countInLine = 0
Do Until secondFile.AtEndOfStream
    lineMatches = false
    lineOfSecond=secondFile.ReadLine
            If count > 79440 Then
                MsgBox("first line" & first.AtEndOfStream)
            End If
    Do Until first.AtEndOfStream
        lineOfFirst =first.ReadLine

            if lineOfSecond = lineOfFirst Then
                lineMatches = True
                Exit Do
            End If
    Loop
    If Not lineMatches Then
        writeFl.Write(count & "second" & lineOfSecond & vbCrLf) 
    End If
    count = count + 1
Loop