Код для вывода списка файлов в папке и/или ее подпапках, в т.ч. по фильтру вида *.*:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
function GetFilesList(ADirName: string; AFileMask: string; ASearchSubdirs: Boolean): TStringList;
var
list: TStringList;
I: Integer;
normalDir: string;
options: TSearchOption;
filesList: TStringDynArray;
begin
// получает список файлов в папке и всех подпапках по маске вида *.*
// автор: jaydi85@gmail.com
if ADirName = '' then
begin
raise Exception.Create('ERROR! ADirName must be non empty.');
end;
list := TStringList.Create;
Result := list;
// доп проверка, т.к. если папки нет, то TDirectory.GetFiles вызывет исключение
if not DirectoryExists(ADirName) then
begin
Exit;
end;
if not EndsText('\', ADirName) then
begin
normalDir := ADirName + '\';
end
else
begin
normalDir := ADirName;
end;
// новая версия поиска через IOUtils
if ASearchSubdirs then
begin
options := TSearchOption.soAllDirectories;
end
else
begin
options := TSearchOption.soTopDirectoryOnly;
end;
filesList := TDirectory.GetFiles(normalDir, AFileMask, options);
for I := 0 to Length(filesList) - 1 do
begin
list.Add(filesList[I]);
end;
end;
