Нужна функция, которая будет принимать имя файла как параметр, а затем возвращает количество строк в этом файле.
Должно быть занято менее 30 секунд, чтобы получить счет 10 миллионов строк файла.
В настоящее время есть что-то в этом роде, но оно слишком медленное с большими файлами:
Dim objFSO, strTextFile, strData, arrLines, LineCount
CONST ForReading = 1
'name of the text file
strTextFile = "sample.txt"
'Create a File System Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Open the text file - strData now contains the whole file
strData = objFSO.OpenTextFile(strTextFile,ForReading).ReadAll
'Split by lines, put into an array
arrLines = Split(strData,vbCrLf)
'Use UBound to count the lines
LineCount = UBound(arrLines) + 1
wscript.echo LineCount
'Cleanup
Set objFSO = Nothing