请教关于文件夹遍历的问题

[realsnow]

怎么才能遍历文件夹下，子文件夹中的每一个文件啊？希望各位不吝赐教，最好讲文件名作为数组数出。

[xiaocha]

procedure TForm1.Button1Click(Sender: TObject);

procedure Search(s: String);
var
N: Integer;
F: TSearchRec;
begin
if s = '' then Exit;
if s[Length(s)] <> '\' then s := s + '\';
N := FindFirst(s+'*.*',faAnyFile,F);
if N = 0 then
begin
while N = 0 do
begin
if not ((F.Name = '.') or (F.Name = '..')) then
begin
if (F.Attr and faDirectory) <> 0 then
Search(s + F.Name)
else
Memo1.Lines.Add(s + F.Name);
end;
N := FindNext(F);
end;
FindClose(F);
end;
end;

begin
Search('c:\');
end;

[tongki]

学习

[laurecn]

xiaocha(小查) 方法就可以吧

[realsnow]

谢谢了！