Поиск файлов по диску (папке)
Поиск файлов по диску (папке)
Поиск файлов по диску (папке) procedure LookDir(StartDir, Mask : String; List : TStrings); var SearchRec : TSearchRec; begin if StartDir[Length(StartDir)] <> '\' then StartDir := StartDir + '\'; if FindFirst(StartDir+'*.*', faAnyFile, SearchRec) = 0 then begin repeat if (SearchRec.Attr and faDirectory) <> faDirectory then begin if ExtractFileExt(StartDir+SearchRec.Name) = Mask then List.Add(StartDir+SearchRec.Name); end else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.') then begin LookDir(StartDir + SearchRec.Name + '', Mask, List); end; until FindNext(SearchRec) <> 0; FindClose(SearchRec); end; end; Применение: LookDir('C:', '.bmp', ListBox1.Items);
