Имя: Пароль:
1C
1C 7.7
v7: Найти все файлы в каталоге и вложенных каталогах
0 0xFFFFFF
 
27.01.12
12:17
Пишу рекурсию

Процедура НайтиВсеФайлы(текКаталог)

   ФС.УстТекКаталог(текКаталог);
   текФайл = ФС.НайтиПервыйФайл("*");
   Пока (СокрЛП(текФайл)<>"") Цикл
       Сообщить(текКаталог+текФайл);
       Атрибуты = "";
       ФС.АтрибутыФайла(текКаталог+текФайл,,Атрибуты);
       Если Сред(Атрибуты, 4, 1) = "1" Тогда //каталог
           НайтиВсеФайлы(текКаталог+текФайл);
       КонецЕсли;
       текФайл = ФС.НайтиСледующийФайл();
   КонецЦикла;

Выводит какую то невообразимую ерунду с точками.
Причем если допустим каталог "C:\Temp", то

ФС.УстТекКаталог(текКаталог);
текФайл = ФС.НайтиПервыйФайл("*");

Выводит текФайл = ".".
Это че за фигня? Если в "C:\Temp" есть и файлы, и каталоги...
1 0xFFFFFF
 
27.01.12
12:22
Все, отбой, поиск рулит.
Как в рамках 7.7 перебрать файлы дерева каталогов?
Бум разбираться
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс