Recursive Algorithms for traversing all files in a folder in Delphi

{----------------------------------------------------------------------------- Process name: makefilelist traversal folder and subfolders parameter: path, fileext: String 1. directory to be traversed 2. the returned value of the file extension to be traversed: tstringlistuse strutils eg: listbox1.items: = makefilelist ('e: \ geipifly', '.exe '); listbox1.items: = makefilelist ','. * '); Comment} function makefilelist (path, fileext: string): tstringlist; varsch: tsearchrec; beginresult: = tstringlist. create; If rightstr (TRIM (PATH), 1) <> '\' Then path: = trim (PATH) + '\' else path: = trim (PATH ); if not directoryexists (PATH) thenbegin result. clear; exit; end; If findfirst (path + '*', faanyfile, Sch) = 0 thenbegin repeat application. processmessages; If (Sch. name = '. ') or (Sch. name = '.. ') then continue; If directoryexists (path + Sch. name) then begin result. addstrings (makefilelist (path + Sch. name, fileext); End else begin if (uppercase (extractfileext (path + Sch. name) = uppercase (fileext) or (fileext = '. * ') then result. add (path + Sch. name); end; until findnext (Sch) <> 0; sysutils. findclose (Sch); end;