Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.28;
Скачать: CL | DM;

Вниз

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

 
Delphimun ©   (2002-01-09 15:00) [0]

findfirs и findnext ищут файлы только в указанной папке, а во вложенные не заглядывают. Есть ли способ, который мог бы искать и во вложенных папках, который можно было реализовать при помощи средств модуля system и Api(не хотелось бы загромаждать память другими модулями).

Искать fadirectory, а потом заглядывать в них на мой взгляд слишком хлопотно, но пока нет альтернативы пользуюсь этим.
Немогли бы вы предоставить мне альтернативу?

Заранее благодарен.


 
Vovchik ©   (2002-01-09 15:14) [1]

Конечно, можно. Нужно делать рекурсию. Ищешь все подкаталоги в данном, потом все подкаталоги в в первом из найденных подкаталогов и т.д. Потом в последнем каталоге находишь файлы.
Я такое как-то писал на С++, если надо могу поделиться.


 
Dimka Maslov ©   (2002-01-09 16:38) [2]

Поищи на форуме, такой вопрос задаётся почти ежедневно.


 
Polevi ©   (2002-01-09 17:17) [3]

procedure TForm1.GetFiles(APath: string);
var
sr:TSearchRec;
isFound:boolean;
begin
isFound:=FindFirst(APath+"*.*",faAnyFile,sr)=0;
while isFound do
begin
if (sr.Name<>".") and (sr.Name<>"..") then
begin
if sr.Attr=faDirectory then GetFiles(APath+sr.Name+"\");
Memo1.Lines.Add(APath+sr.Name);
end;
isFound:=FindNext(sr)=0;
end;
FindClose(sr);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
GetFiles("c:\");
end;



Страницы: 1 вся ветка

Текущий архив: 2002.01.28;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-90227
Wladimir
2001-12-25 06:40
2002.01.28
Баг с размещением на форме элементов Tedit над колонками DBGrid


1-90263
Tosov
2002-01-08 23:22
2002.01.28
Закраска ячейки StringGrid


1-90293
Phobos
2002-01-10 23:08
2002.01.28
Как сделать так чтобы прога при разных разрешениях смотрелась одинаково?


14-90358
Никто
2001-12-03 03:28
2002.01.28
TP7


7-90402
Ketmar
2001-10-14 14:10
2002.01.28
как заменить своим или отрубить окошко менеджера задач (ctrl+alt+del) в Win98?