у меня есть текстовый файл со списком баз (150 строк)

мне надо из vba скрипта прочитать этот файл и циклом
rar a -dh -m1 -s -r -y -x@not.lst d:\_arj\ТУТ СТРОКУ ИЗ ТОГО ФАЙЛА z:\base1\И ТУТ СТРОКУ ИЗ ТОГО ФАЙЛА\*.*

РидЛайн

как узнать сколь там строк вообще?

(2) Только прочитать их все по очереди и сосчитать, сколько прочитал ...

читаю MSDN.
далеко не уходи

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile=fso.OpenTextFile("bases.txt", 1, True)
Msgbox MyFile.ReadLine

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

MyFile.SkipLine

Тебе проще попробовать - еще раз РеадЛине не прокатит?

:( Не прокатит :))

если перед РидЛайн поставить СкипЛайн, то читает вторую.
как бы в цикле все строки прочитать?

Поставь после (пожимая плечами)

Привожу кусок реально работающего скрипта. Он у меня установленные 1С базы из реестра читает...

Set f=fs.OpenTextFile("base.reg", 1, 0,fformat)
Do While f.AtEndOfStream<>True
 Ll = f.ReadLine
...
Loop

И не надо лохматить бабушку.

С уважением, Shaman/

кто лохматит твою бабушку?

(11) из Wscript.Shell можно напрямую работать с реестром.
Безо всяких экспортов в текстовички или ВК.

Shaman, а почему он у меня пустые мсжбоксы кажет?
я в твой скрипт добавил только мсжбокс Л1

(13) Вы не правы! Например, просканить ветку реестра Вы не сможете.

Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile=fso.OpenTextFile("bases.txt", 1, True)
Do While MyFile.AtEndOfStream<>True
Msgbox MyFile.ReadLine
Loop

работает у меня

(16) Так работает или нет?

(13) А как? Про метод RegWrite я знаю, но там не указывается в явном виде параметр реестра из которого необходимо считать значение. Просто берется последний элемент пути (названия ветки реестра). А в 1С сам параметр представляет из себя путь. Скрипт просто не понимает с какого места идет имя параметра. Если есть способ это дело победить, буду благодарен за совет.