my 1C. Полезная информация.

Процедура СканироватьКаталог(Каталог)
     Перем А;
     ФСО=СоздатьОбъект("ФС");
     Ф=ФСО.НайтиПервыйФайл(Каталог+"*");
     Пока Ф<>"" Цикл
          Если (Ф<>".")И(Ф<>"..") Тогда
               ФС.АтрибутыФайла(Каталог+Ф,,А);
               Если Сред(А,4,1)="1" Тогда СканироватьКаталог(Каталог+Ф+"\") КонецЕсли;
          КонецЕсли;
          Сообщить(Каталог+Ф);
          Ф=ФСО.НайтиСледующийФайл();
     КонецЦикла;
КонецПроцедуры
<сообщил avb>


	На PORTA.ru ОГРОМНЫЙ выбор портативной техники: MD-плееры CD-плееры MP3-плееры Кассетные плееры Диктофоны Радио Цифр. камеры Сотовые Дешевые ноутбуки