procedure ScanDir(Dir: string);
var
SearchRec: TSearchRec;
beginif Dir <> "" thenif Dir[length(Dir)] <> "\" then
Dir := Dir + "\";
if FindFirst(Dir + "*.*", faAnyFile, SearchRec) = 0 thenrepeatif (SearchRec.name = ".") or (SearchRec.name = "..") then
continue;
if (SearchRec.Attr and faDirectory) <> 0 then
ScanDir(Dir + SearchRec.name)
//we found Directory: "Dir+SearchRec.name"else
Showmessage(Dir + SearchRec.name);
//we found File: "Dir+SearchRec.name"until
FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ScanDir("c:");
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Рекурсивный проход дерева каталогов", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!