Экспорт данных из закрытого файла

[КаМММ]

Задача: Имеется файл с "левым" расширением (допустим set.m_m)
Файл - текстовый в две строки (одно число и одна строка буквенная)
нужно извлечь данныене не открывая файла, и вставить их значения в две разных ячейки (или переменные на выбор)
С файлом *.xls 'это я могу а с "левым" неполучается. (переименовывать файл нельзя - ограничение прав доступа тоько для чтения)
(В зависимости от этих значений потом будут срабатывать определённые макросы.)

[SAS888]

Требование

извлечь даныене не открывая файла

обязательное? Почему нельзя открыть файл с неизвестным расширением (если, конечно, он текстовый) используя метод Workbooks.OpenText

[КаМММ]

Именно не открывая.
Открывая у меня работает, но тогда этот файл "светится" при извлечении данных, и любопытные пользоавтели начинают в него заглядывать"
Я хочу спрятать и сам файл (он скрытый и находится только на сервере)
и процесс получения данных из него. (он как-бы ключ к программе, если программа его не находит то она делает себе "Харакири", и в зависимости от того какие в нём значения - пользователи имеют доступ к информации или нет)
Конечно опытный взломает такую защиту за 5 минут , но от "чайников" спасает.

[КаМММ]

Собственно вот файл для чтения. (из него нужно считать данные его не открывая)

[КаМММ]

Ау!!! IgorGO, Подскажи! (я просто в шоке от элегантности предлагаемых IgorGO решений)

[SAS888]

Посмотрите вложение. Запустите макрос "ReadLineTextFile", Предварительно, в коде макроса, подставьте требуемый путь к файлу (см. комментарии).
В данном примере использован метод "ReadLine" объекта FileSystemObject.

[КаМММ]

Спасибо большое.
Я был уверен что существует несложный способ чтения данных.
Только у меня сначала не сработало - в сторке Set ts = fso.OpenTextFile(myPath, 1) выдало ошибку хотя я путь не менял. (сбросил файл для начала в корневой каталог Диска С:/ и вытер из предидущей строки "Temp"
Сразу подумал что за бред! Раз положили - должно работать!
На всякий случай переписал путь. (Убедиться что "С" - английская)
Всё сразу сработало!!! (это я для тех кто будет тоже этим методом пользоваться)
Ещё раз Огромное спасибо.