[NecroTYN]

Разработчик для примера выложил скрипт'читаем текстовый файл

Код:

If oFso.FileExists("C:\File1.txt") Then
     Set vStream = oFso.OpenTextFile("C:\File1.txt", 1, True) 'открываем файл для чтения (1 - ForReading, 2 - ForWriting) и получаем объект Stream (поток данных)
     Do Until vStream.AtEndOfStream 'цикл по строкам файла
          sLine = vStream.ReadLine 'чтение строки в переменную
          MsgBox "Прочитана строка: " & sLine, vbInformation, "Чтение текстового файла" 'показываем прочитанную строку в сообщении
     Loop
     vStream.Close 'закрываем файл
End If

и говорит что надо отталкиваться от него, но т.к. я не програмер, то и не знаю с чего начать...