查到一个文件夹以及子文件夹下一共有多少个不同的后缀名，并列出来

Question

查到一个文件夹以及子文件夹下一共有多少个不同的后缀名，并列出来
这个文件夹可能会有很多文件以及子文件夹，请问用什么办法，可以读出：
一共有多少个不同的后缀名，各自的数目又是多少呢？
有没有此类的成熟的软件了？

Answer 1

//未测试过。大概是这么个意思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;