获取指定目录中所有子目录 或指定格式文件名称列表

  • 函数类型: 自定义函数

  • 函数说明:

获取指定目录中所有子目录 或指定格式文件名称列表


  • 代码如下:



 // 搜索多扩展名时以path+'*.jpg;*.jpeg;*.gif;*.png;*.bmp;*.tiff;*.emf'
function FindDF(Dir: string; FindAtrr: Integer; AddDir: Boolean = False)
  : TStringList;
var
  i: Integer;
  f: TSearchRec;
  fList: TStringList;
begin
  { aReadOnly	Read-only files
    faHidden	Hidden files
    faSysFile	System files
    faVolumeID	Volume ID files
    faDirectory	Directory files
    faArchive	Archive files
    faAnyFile	所有文件加入文件后缀 }
  fList := TStringList.Create;
  i := FindFirst(Dir, FindAtrr, f);
  while i = 0 do
  begin
    if (f.Name <> '.') and (f.Name <> '..') then
      case FindAtrr of
        faDirectory:
          if (f.Attr = 16) and (AddDir) then
            fList.Add(f.Name);
        faAnyFile:
          fList.Add(f.Name);
      end;
    i := FindNext(f);
  end;
  FindClose(f);
  Result := fList;
end;



  • 用法示例:

无 



《学习大师原创文档,请勿转载,侵权必究》





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678