获取指定目录下的所有文件(delphi)
2007-04-12 16:27
691 查看
function TForm1.GetAllFile(const Path: string;FileEx:string = '*.*'): TStringList;
var
f: TSearchRec;
Ret: Integer;
begin
FileEx := UpperCase(FileEx);
Result := TStringList.Create;
Ret := FindFirst(Path + '*.*', faAnyFile, f);
while Ret = 0 do
begin
if f.Attr = faDirectory then
begin
if (f.Name <>'.') and (f.Name <> '..') then
GetAllFile(Path + f.Name)
end
else
if UpperCase(ExtractFileExt(f.Name)) = FileEx then
Result.Append(Path + f.Name);
Ret := FindNext(f)
end;
FindClose(f)
end;
var
f: TSearchRec;
Ret: Integer;
begin
FileEx := UpperCase(FileEx);
Result := TStringList.Create;
Ret := FindFirst(Path + '*.*', faAnyFile, f);
while Ret = 0 do
begin
if f.Attr = faDirectory then
begin
if (f.Name <>'.') and (f.Name <> '..') then
GetAllFile(Path + f.Name)
end
else
if UpperCase(ExtractFileExt(f.Name)) = FileEx then
Result.Append(Path + f.Name);
Ret := FindNext(f)
end;
FindClose(f)
end;
相关文章推荐
- Asp.net 获取指定目录下的后缀名为".doc" 的所有文件名和文件路径
- 获取指定包名下继承或者实现某接口的所有类(扫描文件目录和所有jar)
- 获取指定目录下所有的.txt文件
- 获取指定目录下所有的子目录和文件
- 获取指定目录下所有csv文件的总行数
- Unity 获取指定资源目录下的所有文件
- C# 获取指定目录下所有文件信息、移动目录、拷贝目录
- [转]C# 获取指定目录下所有文件信息、移动目录、拷贝目录
- java 获取指定目录下的所有文件
- java获取指定目录下所有指定扩展名的文件
- Java利用递归思想遍历指定目录,获取所有的文件
- Delphi 获取指定目录下文件的大小
- 文佳夹操作之获取指定目录下的所有文件及文件夹
- 转:C# 获取指定目录下所有文件信息、移动目录、拷贝目录
- java语言基础(80)——递归获取指定目录下所有的文件
- Asp.net 获取指定目录下的后缀名为".doc" 的所有文件名和文件路径
- python 获取指定目录,指定时间下所有更改的文件
- 递归获取指定目录下所有的指定格式的文件
- 【原创】C# 递归获取指定目录的子目录及其所有文件
- ListView获取指定目录下的所有文件及文件夹