Есть подчиненные каталоги. Мне нужно программно перебрать и обработать все файлы с расширением  txt. Возможно ли это?

Да, возможно...

А как?

А чем НайтиПервыйФайл("*.txt") не нравиться?

(2)например так:
каомандасистемы("DIR *.txt /b>c:\files.txt");
Текст=СоздатьОбъект("текст");
текст.Открыть("c:\files.txt");
Для х=1 по Текст.КоличествоСтрок()
....

:):):)

(3) НайтиПервыйФайл("*.txt") не работает (по крайней мере у меня)
(4) А вот за эту подсказку спасибо

(5) У всех работает, а у тебя нет... Так может в консерватории что-то подправить?

(4) только на с:\ прав на запись нет :-)

(7) у кого как...

(5) А УстТекКаталог делал?

(5) вот как я пытаюсь сделать:
   Каталог = "B:\дир\";
   Имя=ФС.НайтиПервыйФайл(Каталог+"*.txt");

В результате получаю    имя=""

А где УстТекКаталог ?

(10)В "ФС.НайтиПервыйФайл(Каталог+"*.txt");" пишется только имя файла
, а каталог устанавливается командой "УстТекКаталог(<Свой каталог>)"

(12) Спасибо. А свой каталог = "B:\дир\" ?

(13) Да

+(13)Писать моно не только полное имя, а еще маску.

(13) У тебя тоже ДенисЧ СП украл?

ОК!

(15) @Писать моно не только полное имя, а еще маску@

В имени файла, - понятно! Но как залезть во все ветки дерева каталогов? (Имена каталогов уникальны)

(18) Рекурсия божественна!

(19) Пока четко не представляю как организвать перебор имен через рекурсию, но попробую...

(18) перебирать можно не только файлы, но и каталоги

(20) Познание сущности рекурсии сделает тебя программистом!

(22) Да работал я с ней, красиво все получается! Но в данном случае есть нечто новое

(21) Уточнить можешь?

(24)
Примерно так:

Функция СканироватьКаталог(Имякаталога)

...
перебор "файлов"
Если АтрибутыФайла(....) = это каталог тогда
 СканироватьКаталог(ТекущийФайл)
КонецЕсли

КонецФункции

+ на всякий случай:

АтрибутыФайла(<?>,,,,,,);
Синтаксис:
АтрибутыФайла(<ИмяФайла>,<РазмерФайла>,<АтрибутыФайла>,<ВремяСоздания>,<ВремяПоследнегоДоступа>,<ВремяПоследнейЗаписи>,<РасширенноеИмяФайла>)
Назначение:
Возвращает атрибуты файла (в параметрах).
Параметры:
<ИмяФайла> - строка с именем файла;
<РазмерФайла> - переменная, принимающая размер файла в байтах;
<АтрибутыФайла> - переменная, принимающая атрибуты файла;
Возвращаемое строковое значение длиной 9 символов, в котором закодированы атрибуты файла. Символы могут принимать значения ''0'' или ''1'':
первый символ: если ''1'' - файл только для чтения;
второй символ: если ''1'' - скрытый файл;
третий символ: если ''1'' - системный файл;
четвертый символ: если ''1'' - каталог;
пятый символ: если ''1'' - архивный файл;
шестой символ: если ''1'' - обычный файл (все другие атрибуты не установлены);
седьмой символ: если ''1'' - временный файл;
восьмой символ: если ''1'' - файл, сжатый каким-либо архиватором;
девятый символ: если ''1'' - нет доступа к файлу.
<ВремяСоздания> - переменная, принимающая строку с датой и временем создания файла;
<ВремяПоследнегоДоступа> - переменная, принимающая строку с датой и временем последнего доступа к файлу;
<ВремяПоследнейЗаписи> - переменная, принимающая строку с датой и временем последней записи файла;
<РасширенноеИмяФайла> - переменная, принимающая строку с полным именем файла.

Подробнее см. в книгу ''1С:Предприятие 7.7. Описание встроенного языка. Часть 2'', глава 37 ''Работа с Файлами''.

Это по сути обычный findfirst/findnext из системного API работы с файлами

(25) Спасибо

Наконец-то дошли руки до реализации вышеуказанного перебора папок/файлов. К сожалению есть проблема. При выходе из подчиненной папки, после перебора там файлов, перебор папок текущего уровня не работает. Первый же операор < Возврат ""; > приводит к полному завершению просмотра


Функция СканироватьКаталог(ИмяКаталога)
   Перем КодФайла, ИмяФайла;
   ФС.УстТекКаталог(ИмяКаталога);
   ИмяФайла=ФС.НайтиПервыйФайл("*.*");    
   Если ИмяФайла="." Тогда ИмяФайла=ФС.НайтиСледующийФайл(); КонецЕсли;
   //
   ~М1: ИмяФайла=ФС.НайтиСледующийФайл();    //перебор "файлов"
   Если ИмяФайла=""   Тогда
       Возврат ""; //здесь завершаем просмотр файлов/папок очередного уровня
   КонецЕсли;
   //
   ФС.АтрибутыФайла(ИмяФайла,,КодФайла,,,,);
   //
   Если Сред(КодФайла,4,1) = "1" Тогда
       Сообщить(КодФайла+"  "+ИмяФайла);
       СканироватьКаталог(ИмяКаталога+ИмяФайла+"\");            //***
   Иначе
       Если Найти(ИмяФайла,".txt")>0 Тогда
           //будет обработка
       КонецЕсли;
       Сообщить("         "+КодФайла+"  "+ИмяФайла);
   КонецЕсли;
   Перейти ~М1;
КонецФункции

Есть готовый кусок кода для построения дерева каталога.
Красииииива - даже выводит в табличку с крестиками - свернуть/развернуть ))
Но там все на вложенных таблицах значений и на рекурсиях и принципиально без ~М1 ))
Так что если нужно в каком-то другом виде - переделывать нужно

(30) Можно и с циклом сделать с досрочным завершением по условию. Но это не принципиально.
Наталья, а можешь выслать мне этот "готовый кусок кода"?

Если вечером и из дома - то могу.
А про "циклы и досрочные завершения" -
даже Аленку, которая С++ учит, "воспитую" ))принципиально ))
Если меня совсем сегодня на замучат этим С++ то вечером сделаю

а чо такая длинная ветка ?

(29) передавай в список в параметре процедуры, функция тут не нужна

+ и зачем метка ?

(29)
Функция СканКаталога(ИмяКаталога)
   Если Прав(ИмяКаталога,1)<>"\" Тогда ИмяКаталога=ИмяКаталога+"\"; КонецЕсли;
   спКаталогов=СоздатьОбъект("СписокЗначений");
   ФС1=СоздатьОбъект("ФС");
   ФС1.УстТекКаталог(ИмяКаталога);
   ИмяФайла=ФС1.НайтиПервыйФайл("*.*");    
   Пока ПустоеЗначение(ИмяФайла)=0 Цикл
       Если Лев(ИмяФайла,1)="." Тогда ИмяФайла=ФС1.НайтиСледующийФайл(); Продолжить;КонецЕсли;
       Атр="";    ФС1.АтрибутыФайла(ИмяФайла,,Атр);
       Если Сред(Атр,4,1)="1" Тогда
           спКаталогов.ДобавитьЗначение(ИмяКаталога+ИмяФайла);
           ИмяФайла=ФС1.НайтиСледующийФайл(); Продолжить;
       Иначе
           Сообщить(ИмяКаталога+ИмяФайла);
           ИмяФайла=ФС1.НайтиСледующийФайл();
       КонецЕсли;
   КонецЦикла;
   Для х=1 по спКаталогов.РазмерСписка() Цикл
       СканКаталога(спКаталогов.ПолучитьЗначение(х));
   КонецЦикла;
КонецФункции // СканКаталога

(31) кинула файлик в почту
заодно и на инфостарте разместила, несмотря на тамошние нынешние безобразия ))