FindFirst,FindNext,FindClose学习

procedure TForm1.Button1Click(Sender: TObject);
var
 Dir: TSearchRec; //文件结构
begin
if  FindFirst(edit1.Text,faAnyFile,Dir) = 0 then
begin
repeat
          //是目录吗?
          //and 的作用是通过 "与" fadirectory 消掉Attr中的其它文件,只取留下faDirectory属性
          //通过 or 可以添另其它属性
if(Dir.Attr and faDirectory) = faDirectory then
begin
                 ListBox1.Items.Add(dir.Name);
if (dir.Name <> '.')  and (dir.name <> '..') then
                 GetSubDir('','D:\'+dir.Name,5,true);
end;
until (FindNext(Dir) <> 0);
end;
    FindCLose(Dir);
end;

procedure TForm1.GetSubDir(Filter, Folder: string;TreeLevel:Integer; Recurse: boolean);
var
 Dir: TSearchRec;
 count :Integer;
begin
  count := 0;
  Folder :=IncludeTrailingPathDelimiter(Folder);

if  FindFirst(Folder+'*.*',faDirectory,Dir) = 0 then
begin
repeat
      //是目录吗?
      //and 的作用是通过 "与" fadirectory 消掉Attr中的其它文件,只取留下faDirectory属性
      //通过 or 可以添另其它属性
if(Dir.Attr and faDirectory) = faDirectory then
begin
if (dir.Name <> '.')  and (dir.name <> '..') then
begin
            inc(count);  //文件深度count

if(count > TreeLevel) then
break;

            ListBox1.Items.Add(dir.Name);

if Recurse then
             GetSubDir('',Folder+dir.Name,2,Recurse);  //递归调用获取子目录
end;
end;
until (FindNext(Dir) <> 0);
end;
    FindCLose(Dir);
end;

 

转载于:https://www.cnblogs.com/pengshaomin/archive/2012/02/08/2343047.html