Delphi下遍历文件夹下所有文件的递归算法

{-------------------------------------------------------------------------------

过程名: MakeFileList 遍历文件夹及子文件夹

参数: Path,FileExt:string 1.需要遍历的目录 2.要遍历的文件扩展名

返回值: TStringList

USE StrUtils

Eg：ListBox1.Items:= MakeFileList( 'E:\极品飞车','.exe') ;

ListBox1.Items:= MakeFileList( 'E:\极品飞车','.*') ;

-------------------------------------------------------------------------------}

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;

Delphi下遍历文件夹下所有文件的递归算法相关推荐

ASP.NET2.0 遍历文件夹下所有图片【月儿原创】
ASP.NET2.0 遍历文件夹下所有图片作者:清清月儿主页:http://blog.csdn.net/21aspnet/ 时间:2007.4.4 1.以下目录有若干图片(都是 ...
OpenCV实现遍历文件夹下所有文件
OpenCV中有实现遍历文件夹下所有文件的类Directory,它里面包括3个成员函数:(1).GetListFiles:遍历指定文件夹下的所有文件,不包括指定文件夹内的文件夹:(2).GetList ...
C#遍历得到指定文件夹下的所有文件和子文件夹
1.遍历指定文件夹下的所有文件 string path = Application.StartupPath + "\\data\\采集数据\\"; DirectoryInfo ro ...
python根据文件名或后缀名遍历文件夹下所有文件或图片的路径，并计算文件行数
python遍历文件夹下所有文件或图片的路径代码指定目录下的指定后缀文件 import glob #获取指定目录下的所有图片 print (glob.glob("\\home\\qiao ...
怎么遍历服务器文件夹,遍历远程服务器某个文件夹下的文件
遍历远程文件夹下的文件,您可以考虑使用FTP的方式,具体的请参考下述代码: private string GetFileNames(string URI) { WebClient wClient = ...
python批量读取文件夹中的所有excel文件-python遍历文件夹下所有excel文件
大数据处理经常要用到一堆表格,然后需要把数据导入一个list中进行各种算法分析,简单讲一下自己的做法: 1.如何读取excel文件网上的版本很多,在xlrd模块基础上,找到一些源码: import ...
python遍历指定文件夹的所有文件_python 统计指定文件夹下所有的文件数量，BFS方式...
python 统计指定文件夹下所有的文件数量本来一直是有这个需求,只是以前写的是递归的方式处理,感觉对资源的占用不友好,而且python的最大递归深度不超过1000,所以改了一下,这里用广度优先遍历 ...
windows中遍历指定文件夹下的所有子文件夹
前面我给出了windows下面指定文件夹下面指定类型文件的遍历程序,这里,再给出遍历指定文件夹下的所有子文件夹的程序: #include "stdafx.h" #include & ...
java中File类应用：遍历文件夹下所有文件
练习: 要求指定文件夹下的所有文件,包括子文件夹下的文件代码: package 遍历文件夹所有文件;import java.io.File;public class Test {public sta ...
python 如何遍历文件夹下所有图片/文件? os.walk() os.listdir()
引用文章1: 初学Python-找出文件夹下的所有图片 . 参考文章2:python中如何遍历文件夹及其子文件夹中的所有文件(附实现代码)

Delphi下遍历文件夹下所有文件的递归算法

Delphi下遍历文件夹下所有文件的递归算法相关推荐

最新文章

热门文章