5,388
社区成员
发帖
与我相关
我的任务
分享
procedure GetFiles(AFileExtList: TStrings; ADir,
AFileMask: string);
var
f: TSearchRec;
begin
if RightStr(ADir, 1) <> '\' then
ADir := ADir + '\';
if FindFirst(ADir + AFileMask, faAnyFile, f) = 0 then
repeat
if f.Attr = FILE_ATTRIBUTE_DIRECTORY then
GetFiles(AFileExtList,ADir+f.Name,AFileMask);
if (f.Name <> '.') and (f.name <> '..') then
if AFileExtList.IndexOf(ExtractFileExt(f.Name)) = -1 then
AFileList.Add(ADir + f.Name);
until FindNext(f) <> 0;
FindClose(f);
end;