Имя: Пароль:
1C
 
Перебор подкаталогов и файлов в них
0 Генералисимус
 
28.08.07
09:29
Есть каталог АРХ. В нем подкаталоги с именем <<ГГГГММДД>> -
дата создания архива. Нужно перебрать подкаталоги и из каждого
подкаталога выбрать по маске файлы. В 1С7,7 - нет перебора
подкаталогов или я туплю????.
1 IUnknown
 
28.08.07
09:31
2 Nordok
 
28.08.07
09:35
Процедура ПолучитьСписок2(Каталог, ТабЗн)
   Перем А, ПЗ;
   ФСО=СоздатьОбъект("ФС");
   Ф=ФСО.НайтиПервыйФайл(Каталог+"*");
   Пока Ф<>"" Цикл
       
       Если (Ф<>".")И(Ф<>"..") Тогда
           
           ФС.АтрибутыФайла(Каталог+Ф,,А,,,ПЗ);
           Если Сред(А,4,1)="1" Тогда
               ПолучитьСписок2(Каталог+Ф+"\", ТабЗн)
           Иначе
               ТабЗн.НоваяСтрока();
               ТабЗн.ИмяФайла=Каталог+Ф;
               ТабЗн.ДатаИзменения=ПЗ;
               //Сообщить(Каталог+Ф);
           КонецЕсли;
       КонецЕсли;
       
       Ф=ФСО.НайтиСледующийФайл();
   КонецЦикла;
КонецПроцедуры

Типа того
3 Генералисимус
 
28.08.07
09:45
(1) (2) Большое, большое спасибо!!!
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший