如何能够得到一个文件夹下所有的文件列表，包括子文件夹（非常紧急，搜索了半天也找不到）(300分)

我这里数千个文件需要进行批量修改，而且很急。


老猫一下给了我300分，我怕人砍，只好赶快吐出来了。：）

用FindFirst和FindNext;再加上递归

uses ShellApi;

function GetDirectorySize(Path: String): Integer; //eg. Path = 'c:/temp/'
var
SR: TSearchRec;
begin
Result := 0;
if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
begin
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr = faDirectory) then
Result := Result + GetDirectorySize(Path+Sr.Name+'/')
else
Result := Result + Sr.Size;
while FindNext(sr) = 0 do
if (sr.Name <> '.') and (sr.Name <> '..') and (sr.Attr = faDirectory) then
Result := Result + GetdirectorySize(Path+Sr.Name+'/')
else
Result := Result + Sr.Size;
FindClose(sr);
end;
end;

这是一个获得目录大小的，你可以看一下，改一下。

//这是在一个目录下查找文件的列子，你只要改一下就可。
function IsValidDir(SearchRec:TSearchRec):Boolean;
begin
if (SearchRec.Attr=16) and
(SearchRec.Name<>'.') and
(SearchRec.Name<>'..') then
Result:=True
else
Result:=False;
end;
2． 这是查询主体函数。
参数介绍：

Mainpath： 指定的查询目录。
Filename： 欲查询的文件。
Foundresult： 返回的含完整路径的匹配文件（可能有多个）。

如果有匹配文件，函数返回True，否则，返回False; 　

function SearchFile(mainpath:string; filename:string;
var foundresult:TStrings):Boolean;
var i:integer;
Found:Boolean;
subdir1:TStrings;
searchRec:TsearchRec;
begin
found:=false;
if Trim(filename)<>'' then
begin
subdir1:=TStringList.Create;//字符串列表必须动态生成
//找出所有下级子目录。
if (FindFirst(mainpath+'*.*', faDirectory, SearchRec)=0) then
begin
if IsValidDir(SearchRec) then
subdir1.Add(SearchRec.Name);
while (FindNext(SearchRec) = 0) do
begin
if IsValidDir(SearchRec) then
subdir1.Add(SearchRec.Name);
end;
end;
FindClose(SearchRec);
//查找当前目录。
if FileExists(mainpath+filename) then
begin
found:=true;
foundresult.Add(mainpath+filename);
end;
//这是递归部分，查找各子目录。
for i:=0 to subdir1.Count-1 do
found:=Searchfile(mainpath+subdir1.Strings+
'/',Filename,foundresult)or found;
//资源释放并返回结果。
subdir1.Free;
end;
result:=found;
end;

LeeChange:
动作慢了点，多了个人跟你抢分
Shd：
谢谢，谢谢你的代码。多少省了点事。

book523 我的动作还是慢了，到这里拿分。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=637218