2
Nordok
28.08.07
✎
09:35
|
Процедура ПолучитьСписок2(Каталог, ТабЗн)
Перем А, ПЗ;
ФСО=СоздатьОбъект("ФС");
Ф=ФСО.НайтиПервыйФайл(Каталог+"*");
Пока Ф<>"" Цикл
Если (Ф<>".")И(Ф<>"..") Тогда
ФС.АтрибутыФайла(Каталог+Ф,,А,,,ПЗ);
Если Сред(А,4,1)="1" Тогда
ПолучитьСписок2(Каталог+Ф+"\", ТабЗн)
Иначе
ТабЗн.НоваяСтрока();
ТабЗн.ИмяФайла=Каталог+Ф;
ТабЗн.ДатаИзменения=ПЗ;
//Сообщить(Каталог+Ф);
КонецЕсли;
КонецЕсли;
Ф=ФСО.НайтиСледующийФайл();
КонецЦикла;
КонецПроцедуры
Типа того
|
|