高手请进:问一个问题

baixue888 2004-04-14 09:39:27

怎么样找到磁盘下所有的目录
完事后再付200分!

...全文

22 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

baixue888 2004-04-15

打赏
举报

不好意思,分加不了那么多,见谅!

baixue888 2004-04-15

打赏
举报

呵呵,感谢!
给分!
一会发分给你!

menggirl 2004-04-14

打赏
举报

TO
BAIXUE,我记得你是一个GIRL!
HOHO~~~~~~~~~~~~~~~~~~~~

menggirl 2004-04-14

打赏
举报

procedure TForm1.MakeTree;
var
Sr: TSearchRec;
Err: Integer;
FilePath: string;
begin
Err := FindFirst('*.*',$37,Sr); //$37为除Volumn ID Files外的所有文件
// 如果找到文件
while (Err = 0) do
begin
if Sr.Name[1] <> '.' then
begin
//找到文件
if (Sr.Attr and faDirectory) = 0 then
begin

end;
//找到子目录
if (Sr.Attr and faDirectory) = 16 then
begin
FilePath := ExpandFileName(Sr.Name);
DirectoryEdt.Lines.Add(FilePath);
ChDir(Sr.Name);
MakeTree;
ChDir('..');
end;
end;

//结束递归
Err := FindNext(Sr);
end;
end;

procedure TForm1.SearchBtnClick(Sender: TObject);
begin
DirectoryEdt.Lines.Clear;
ChDir(PathEdt.Text);
MakeTree;
end;
end.
试试,试好了一定给我分呵!