获取目录下所有文件名的代码_相关技巧教程-查字典教程网
获取目录下所有文件名的代码
获取目录下所有文件名的代码
发布时间:2016-12-29 来源:查字典编辑
摘要:一:获取指定文件夹的文件复制代码代码如下:proceduresearchfile(path:string);//注意,path后面要有'';...

一:获取指定文件夹的文件

复制代码 代码如下:

procedure searchfile(path:string);//注意,path后面要有'';

var

SearchRec:TSearchRec;

found:integer;

begin

found:=FindFirst(path+'*.*',faAnyFile,SearchRec);

while found=0 do

begin

if (SearchRec.Name<>'.') and (SearchRec.Name<>'..')

and (SearchRec.Attr<>faDirectory) then

ListBox1.Add(SearchRec.Name);

found:=FindNext(SearchRec);

end;

FindClose(SearchRec);

end;

二:获取该目录下的子目录的文件

复制代码 代码如下:

procedure SearchFile(path:string);

var

SearchRec:TSearchRec;

found:integer;

begin

found:=FindFirst(path+'*.*',faAanyFile,SearchRec);

while found=0 do

begin

if (SearchRec.Name<>'.') and (SearchRec.name<>'..) and

(SearchRec.Name=faDirectory) then

SearchFile(SearchRec.Name+'')

else

LisBox1.Add(SearchRec.Name);

found:=FindNext(SearchREc);

end;

FindClose(SearchRec);

end;

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新相关技巧学习
    热门相关技巧学习
    编程开发子分类