zoukankan      html  css  js  c++  java
  • DELPHI如何获取某目录下的所有文件名?

    //=====================================================================
    // 函数名称: FindPathFiles
    // 功能描述: 找指定目录下的文件
    // 参    数:  APath   : 路径名称
    //            APropty : 属性名称(*.* | *.txt)
    //            AFiles  : 文件列表
    //            IsAddPath: 是否增加路径
    // 作者:    
    // 时间:    
    // 返 回 值:
    // 说    明:
    //=====================================================================
    procedure FindPathFiles(const APath: string; AFiles: TStrings;
      const APropty: String = '*.*'; IsAddPath: Boolean = False);
    var
      FS: TSearchRec;
      FPath: String;
      AddPath: string;
    begin
      FPath := IncludeTrailingPathDelimiter(APath);
      AddPath := IfThen(IsAddPath, FPath, '');
      if FindFirst(FPath + APropty, faAnyFile, FS) = 0 then
      begin
        repeat
        if //(FS.Name <> '.') and (FS.Name <> '..') and
           ((FS.Attr and faDirectory) <> faDirectory) then
           AFiles.Add(AddPath + FS.Name);
        until FindNext(FS) <> 0;
        SysUtils.FindClose(FS);
      end;
    end;

    //=====================================================================
    // 函数名称: FindAllFiles
    // 功能描述: 找指定目录下的所有文件
    // 参    数:  APath    : 路径名称
    //            APropty  : 属性名称(*.* | *.txt)
    //            AFiles   : 文件列表
    //            IsAddPath: 是否增加路径
    // 作者:    
    // 时间:    
    // 返 回 值:
    // 说    明:
    //=====================================================================
    procedure FindAllFiles(const APath: string; AFiles: TStrings;
      const APropty: String = '*.*'; IsAddPath: Boolean = False);
    var
      FS: TSearchRec;
      FPath: String;
      AddPath: string;
    begin
      FPath := IncludeTrailingPathDelimiter(APath);
      AddPath := IfThen(IsAddPath, FPath, '');
      if FindFirst(FPath + APropty, faAnyFile, FS) = 0 then
      begin
        repeat
        if (FS.Name <> '.') and (FS.Name <> '..') then
          if ((FS.Attr and faDirectory) = faDirectory) then
            FindAllFiles(FPath + FS.Name, AFiles, APropty, IsAddPath)
          else
            AFiles.Add(AddPath + FS.Name);
        until FindNext(FS) <> 0;
        SysUtils.FindClose(FS);
      end;
    end;

  • 相关阅读:
    京东架构师:前端工程化在京东首页实践
    CSS 的命名和书写
    call,apply,bind方法的总结
    this指针指向的彻底理解
    Js获取当前日期时间及其它操作
    gulp-css-spriter 雪碧图合成
    Web前端业界氛围极好的群——鬼懿IT
    默认加载数据分页,点击分页后再次异步数据
    height设置百分比的条件
    input 的type类型值
  • 原文地址:https://www.cnblogs.com/yumalei/p/10153767.html
Copyright © 2011-2022 走看看