v7: Найти все файлы в каталоге и вложенных каталогах
☑
0
0xFFFFFF
27.01.12
✎
12:17
Пишу рекурсию
Процедура НайтиВсеФайлы(текКаталог)
ФС.УстТекКаталог(текКаталог);
текФайл = ФС.НайтиПервыйФайл("*");
Пока (СокрЛП(текФайл)<>"") Цикл
Сообщить(текКаталог+текФайл);
Атрибуты = "";
ФС.АтрибутыФайла(текКаталог+текФайл,,Атрибуты);
Если Сред(Атрибуты, 4, 1) = "1" Тогда //каталог
НайтиВсеФайлы(текКаталог+текФайл);
КонецЕсли;
текФайл = ФС.НайтиСледующийФайл();
КонецЦикла;
Выводит какую то невообразимую ерунду с точками.
Причем если допустим каталог "C:\Temp", то
ФС.УстТекКаталог(текКаталог);
текФайл = ФС.НайтиПервыйФайл("*");
Выводит текФайл = ".".
Это че за фигня? Если в "C:\Temp" есть и файлы, и каталоги...
1
0xFFFFFF
27.01.12
✎
12:22
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс