VPF::рекурсивный обход дерева каталогов

Drizhenko

Дата 3.2.2006, 12:10 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Вот мой алгоритм

Код


procedure TForm1.FileFind(path: string);
  var sr:Tsearchrec;// Описываем структуру, которую использует для поиска система
  found,i:integer; // найдено или нет
begin
  found:=FindFirst(path + '\*.*', FaAnyfile, sr);
  while (found = 0) do // если хоть что-то найдено
   begin
    if (sr.name <> '.') and (sr.name <> '..') then
    begin // если это не указатели на корневые каталоги, то чтото нашли
      if (sr.attr and FaDirectory) = FaDirectory then
        // ага вот поддиректория - вызываем себя рекурсивно, но с поиском уже в этой директории
        begin
          FileFind(path+'\'+sr.name);
          form1.memo1.lines.append(path+'\'+sr.name);
        end;
      end;
   found:=findnext(sr); // есть ли еще файлы или каталоги
   end;
   FindClose(sr); // поиск закончен - нужно освободить память
end;

Скажите, пожалуйста как добавить сюда вложенность папок. Допустим, чтобы глубже 3 папке он другие не искал.

Snowy

Дата 3.2.2006, 12:13 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код


procedure TForm1.FileFind(path: string; Dept: byte=0);
  var sr:Tsearchrec;// Описываем структуру, которую использует для поиска система    
  found,i:integer; // найдено или нет    
begin    
  found:=FindFirst(path + '\*.*', FaAnyfile, sr);    
  while (found = 0) do // если хоть что-то найдено    
   begin    
    if (sr.name <> '.') and (sr.name <> '..') then    
    begin // если это не указатели на корневые каталоги, то чтото нашли    
      if (sr.attr and FaDirectory) = FaDirectory then    
        // ага вот поддиректория - вызываем себя рекурсивно, но с поиском уже в этой директории    
        begin    
          if Dept <= 3 then FileFind(path+'\'+sr.name, Dept+1);    
          form1.memo1.lines.append(path+'\'+sr.name);    
        end;    
      end;    
   found:=findnext(sr); // есть ли еще файлы или каталоги    
   end;    
   FindClose(sr); // поиск закончен - нужно освободить память    
end;

Drizhenko

Дата 3.2.2006, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 175
Регистрация: 13.1.2005

Репутация: нет
Всего: нет

Большое спасибо, работает

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »