VBS. Как определить количество строк в файле и динамически выводить на экран?

Question

[Ринат Норезов]

Доброго времени суток. Есть текстовый файл list.txt, в котором постоянно, примерно раз в секунду меняется содержимое. Нужно выводить в информационное окно количество строк, так же с интервалом в секунду. При нажатии на кнопку "OK", выход. В скриптах не силен, нашел похожий пример:

Код

Dim fso, ts
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("c:\test.txt")
s = ts.Readall
ts.close
x =ubound(Split (s,vbCrlf))+1
WScript.Echo "Количество строк: " & ubound(Split (s,vbCrlf))+1

www.cyberforum.ru/vbscript-wsh/thread1491347.html

Только он считает разово, а надо бы постоянно. Из гугла понял, что надо где-то воткнуть

Do
loop

Но куда воткнуть не знаю. Как бы это сделать на VBS или WSH?
Заранее спасибо.