Вход | Регистрация
 

Как быстро найти все файлы во вложеных папках?

Как быстро найти все файлы во вложеных папках?
Я
   diesell
 
09.09.08 - 09:45
Начиная от заданной надо найти все файлы во всех подпапках. Подкиньте процедурку плиз.
   John83
 
1 - 09.09.08 - 10:18
Сам когда-то спрашивал :)
НайденныеФайлы = НайтиФайлы(Путь, "*.*");
Для каждого НайденныйФайл Из НайденныеФайлы Цикл
    Если НайденныйФайл.ЭтоКаталог() Тогда
       // Ищем все файлы в найденном каталоге 
        НайтиВсеФайлы(НайденныйФайл.ПолноеИмя);
    Иначе
       // Это файл, выведем его полное имя 
        Сообщить(НайденныйФайл.ПолноеИмя);
        НовыйЭлемент = Справочники.Файлы.СоздатьЭлемент();
        НовыйЭлемент.Наименование = НайденныйФайл.Имя;
        НовыйЭлемент.Путь = НайденныйФайл.Путь;
        НовыйЭлемент.РазмерФайла = (НайденныйФайл.Размер())/1000;
        НовыйЭлемент.ПолноеНаименование = НайденныйФайл.ПолноеИмя;
        НовыйЭлемент.Записать();
    КонецЕсли;
КонецЦикла;

Список тем форума
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Ветка сдана в архив. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.