delphi 遍历所有文件夹

原创 2015年07月11日 00:55:38

遍历所有文件夹,并且保持到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;

版权声明:本文为博主原创文章,未经博主允许不得转载。

Delphi遍历文件夹及子文件夹(可查找固定格式文件)

Delphi遍历文件夹及子文件夹 {------------------------------------------------------------------------------- ...

Delphi 文件夹遍历所有文件包括子文件文件,并可通过后缀过滤

unit SearchTool; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Contro...
  • fzuim
  • fzuim
  • 2016年06月20日 14:36
  • 1912

VC遍历文件夹

  • 2016年01月15日 14:13
  • 118KB
  • 下载

遍历文件夹

  • 2013年09月04日 21:38
  • 24KB
  • 下载

delphi中获得进程列表或想要的进程(枚举进程、遍历进程)

一个常见的编程任务是枚举所有运行的"应用程序"。Windows 任务管理器就是一个很好的例子。它用两种方式列出"应用程序"。任务管理器的第一个选项卡列出桌面上的所有"应用程序窗口"。第二个选项卡列出系...

遍历文件夹中的文件

  • 2014年07月31日 17:14
  • 732B
  • 下载

遍历文件夹并建成目录树

  • 2015年11月20日 15:32
  • 12KB
  • 下载

Delphi 查找标题已知的窗口句柄,遍历窗口控件句柄

查找标题已知的窗口句柄,遍历窗口控件   有了回调函数的概念及上面的例子,我们可以继续了。其实想要找到一个标题已知的窗口句柄,用一个API函数就可以了:FindWindow. 其函数原形是: ...
  • youthon
  • youthon
  • 2015年04月22日 13:22
  • 3730

遍历本地文件夹选取地址

  • 2017年05月27日 17:14
  • 19.34MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:delphi 遍历所有文件夹
举报原因:
原因补充:

(最多只允许输入30个字)