高手请进:问一个问题

Question

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

Answer 1

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.
试试,试好了一定给我分呵!

Answer 2

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