【跟随万一老师的足迹】查找目录下文件，在万一老师的基础上升级下，支持多文件查找

看了万一老师的“遍历某个文件的文件及子文件“，经过层层优化，结合实际需要，在万一老师代码的基础上，增加了多文件查找的功能

//sysGetFileList(List,'c:\','*.doc,*.exe');  List通过查找添加多文件
//sysGetFileList(List,'c:\','*.doc');   List通过查找添加单文件
procedure sysGetFileList(List: TStrings; SourFile,FileName: string);
varS_Path: String;TmpList,S_FileList: TStringList;FileRec,SubFileRec: TSearchRec;I: Integer;
beginS_Path := IncludeTrailingPathDelimiter(Trim(SourFile));     //单元SysUtils中判断末尾是否包含文件夹路径符号'\'，没有的则补全if not DirectoryExists(S_Path) thenbeginList.Clear;Exit;end;S_FileList := TStringList.Create;tryS_FileList.CommaText := FileName;TmpList := TStringList.Create;for I := 0 to S_FileList.Count - 1 dobeginif FindFirst(S_Path + S_FileList[I],faAnyFile,FileRec) = 0 thenrepeatif ((FileRec.Attr and faDirectory) <> 0) thenbeginif ((FileRec.Name <> '.') and (FileRec.Name <> '..')) thensysGetFileList(TmpList,IncludeTrailingPathDelimiter(S_Path + FileRec.Name),FileName);endelsebeginif ((FileRec.Attr and faDirectory) = 0) thenTmpList.Add(S_Path + FileRec.Name);end;until FindNext(FileRec) <> 0;end;FindClose(FileRec.FindHandle);if TmpList.CommaText <> '' then     //空文件夹不添加路径beginif List.CommaText <> '' thenList.CommaText := List.CommaText + List.Delimiter + TmpList.CommaTextelseList.CommaText := TmpList.CommaText;end;finallyFreeAndNil(TmpList);FreeAndNil(S_FileList);end;
end;

【跟随万一老师的足迹】查找目录下文件，在万一老师的基础上升级下，支持多文件查找 - 文件操作(一)相关推荐

二维数组中的查找--元素从左到右递增，从上到下递增
在一个二维数组中,每一行都按照从左到右递增的顺序排序,每一列都按照从上到下递增的顺序排序.请完成一个函数,输入这样的一个二维数组和一个整数,判断数组中是否含有该整数. 首先选取数组中右上角的数字.如果 ...
win7 php 上传文件,在LNMP原来的基础上，win7环境下如何上传PHP文件到Linux环境下...
首先,下载一个WINSCP客户端连接主机后,上传文件到自己的保存目录接着进入数据库添加我们的数据库 mysql -uroot -p //这个是进入mysql的命令,但是要是你没有加 ln -s ...
java ganymed ssh2_java ganymed-ssh2,session 执行多条指令,最好可以在前一条的基础上,执行下一条。...
通过session.requestDumbPTY()和session.startShell()来模拟命令行,在通过io流操作 try { session = conn.openSession(); s ...
linux查找日期目录,详解Linux查找目录下的按时间过滤的文件
在维护项目中,有时会指定都一些条件进行过滤文件,并对该批文件进行操作:这时我们将使用shell命令进行操作:直接上代码 #!/bin/sh #BEGIN #`find ./ ! -name " ...
linux依据时间过滤文件,详解Linux查找目录下的按时间过滤的文件
在维护项目中,有时会指定都一些条件进行过滤文件,并对该批文件进行操作:这时我们将使用shell命令进行操作:直接上代码 #!/bin/sh #BEGIN #`find ./ ! -name " ...
linux模糊查找目录文件,详解Linux查找目录下的按时间过滤的文件
在维护项目中,有时会指定都一些条件进行过滤文件,并对该批文件进行操作:这时我们将使用shell命令进行操作:直接上代码 #!/bin/sh #BEGIN #`find ./ ! -name " ...
linux按目录名查找目录_如何在Linux中查找目录？
linux按目录名查找目录 Linux provides different ways to find directories. Here we will look at how to find di ...
【剑指Offer】个人学习笔记_32_从上到下打印二叉树 IIIIII
目录 I 题目: [剑指 Offer 32 - I. 从上到下打印二叉树](https://leetcode-cn.com/problems/cong-shang-dao-xia-da-yin-er- ...
linux查看文件总和以G为单位,linux系统下以存储从大到小并以K，M，G为单位的方式查看当前目录下的文件信息...
前言最近几乎大部分工作都在linux上进行的,发现在工作过程中经常要查看当前目录下的文件大小,但是每次都是用ls命令每次都是以字节形式显示的,看起来特别不爽.于是开始了再linux下如何看起来很爽文 ...

【跟随万一老师的足迹】查找目录下文件，在万一老师的基础上升级下，支持多文件查找 - 文件操作(一)

【跟随万一老师的足迹】查找目录下文件，在万一老师的基础上升级下，支持多文件查找 - 文件操作(一)相关推荐

最新文章

热门文章