Traverse folders and subfolders

{-------------------------------------------------------------------------------
Process name: makefilelist
Author: swgweb
Date: 2007.11.25
Parameter: path, fileext: String 1. Directory to be traversed 2. File Extension to be traversed
Returned value: tstringlist

Eg: listbox1.items: = makefilelist ('e:/geek ', '.exe ');
Listbox1.items: = makefilelist ('e:/speeding up ','.*');
-------------------------------------------------------------------------------}
Function makefilelist (path, fileext: string): tstringlist;
VaR
Sch: tsearchrec;
Begin
Result: = tstringlist. Create;

If rightstr (TRIM (PATH), 1) <> '/'then
Path: = trim (PATH) + '/'
Else
Path: = trim (PATH );

If not directoryexists (PATH) then
Begin
Result. Clear;
Exit;
End;

If findfirst (path + '*', faanyfile, Sch) = 0 then
Begin
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;
End;