关闭

delphi 遍历所有文件夹

标签: delphifindfirst遍历文件夹
302人阅读 评论(0) 收藏 举报
分类:

遍历所有文件夹,并且保持到TStringList中

function getFileTree(const filepath:string):TStringlist;

var
  sr:TSearchrec;
  fileName:string;
  I:integer;
begin
   result:=TStringlist.Create;
   if Findfirst(filepath+'\*',faanyfile,sr)=0 then
   begin
     repeat
        if (sr.Name = '.') or (sr.Name='..') then continue;
        if sr.Attr = fadirectory then
        begin
          result.Add(sr.Name);
          result.AddStrings(getFileTree(filepath+'\'+sr.Name)) ;
        end

        else
          result.Add(sr.Name);
     until findnext(sr) <>0;
     findclose(sr);
   end;
end;

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:14419次
    • 积分:268
    • 等级:
    • 排名:千里之外
    • 原创:13篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类