RSS订阅 | 匿名投稿
您的位置:网站首页 > 文件 > 正文

delphi 如何遍历整个硬盘的各个目录,就像windows的查找功能那样

作者:admin 来源:未知 日期:2010/5/22 20:15:46 人气: 标签:

注:输入c:\** 即可遍历C盘

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure   search(dir:string);  
var  
      targetpath:string;{目标路径名}  
      sr:TsearchRec;  
begin  
      {第一阶段:找出初始dir目录下的所有文件,  
      其中dir变量值由edit1的Text属性确定}  

      targetpath:=extractfilepath(dir);{分解出目标路径名}  
      if   findfirst(dir,faanyfile,sr)=0   then  
      repeat  
        if((sr.name<>'.')and(sr.name<>'..'){排除父目录和本目录两个假文件}  
        and((filegetattr(targetpath+sr.name)and   fadirectory)<>fadirectory)){只取文件}  
        then
            form1.memo1.Lines.Add(targetpath+sr.name);{在memo中添加找到的文件}  
      until   findnext(sr)<>0;  
   
      if   findfirst(dir,faanyfile,sr)=0   then  
      repeat  
        if((sr.name<>'.')and(sr.name<>'..')){排除父目录和本目录两个假文件}  
        and((filegetattr(targetpath+sr.name)and   fadirectory)=fadirectory){排除文件}
        then
            search(targetpath+sr.name+'\*.*');{递归调用}
      until   findnext(sr)<>0;  
end;  
   


procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Clear;{清除数据表memo字段内容}  
search(Edit1.Text);{调用Search()函数}
MessageDlg('文件搜索完毕!',mtInformation,[mbOk],0);{结束提示}

end;

end.


读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: