delphi 遍历目录


本文整理自网络,侵删。

 function MakeFileList(Path,FileExt:string):TStringList ;
var
sch:TSearchrec;
begin
Result:=TStringlist.Create;

if rightStr(trim(Path), 1) <> '\' then
Path := trim(Path) + '\'
else
Path := trim(Path);

if not DirectoryExists(Path) then
begin
Result.Clear;
exit;
end;

if FindFirst(Path + '*', faAnyfile, sch) = 0 then
begin
repeat
Application.ProcessMessages;
if ((sch.Name = '.') or (sch.Name = '..')) then Continue;
if DirectoryExists(Path+sch.Name) then
begin
Result.AddStrings(MakeFileList(Path+sch.Name,FileExt));
end
else
begin
if (UpperCase(extractfileext(Path+sch.Name)) = UpperCase(FileExt)) or (FileExt='.*') then
Result.Add(Path+sch.Name);
end;
until FindNext(sch) <> 0;
SysUtils.FindClose(sch);
end;
end;

相关阅读 >>

Delphi injectmemexe

Delphi copyrect实现的几个图片的转换效果

Delphi 判断进程名是否存在,如果存在则结束进程

Delphi 通过窗口特定标题锁定窗口

Delphi 弹出输入框的inputquery, inputquery 函数用法

Delphi中format函数的用法

Delphi读写ini文件加锁(独占)

Delphi xe7 的 android bitmap转jpg图的参数问题

Delphi shellexecute打开文件另类用法

Delphi二分查找算法(预排序数组的查找)

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...