如何遍历我的电脑所有文件？(0分)

比如我想搜索电脑上所有的*.doc文件，包括u盘上的文件？就像系统自带CTR+F的搜索一样，我不要其它的要求，只要能找到文件把地址复制下来就可以了，我找了没找到？谁能告诉我，谢谢，给我个连接也行。

findfirst,findnext 递归。

刚做了一个，如下供参考：
procedure TthrFindFile.Find(Dir:String);
var
sch: TSearchRec;
stemp: String;
ADirectory:String;
begin
try
ADirectory:=Dir;
if ADirectory='' then
exit;
if FindFirst(ADirectory+'/'+ '*', faAnyfile, sch) = 0 then
begin
while FindNext(sch)=0 do
begin
if ((sch.Name = '.') or (sch.Name = '..')) then Continue;
if pos(UpperCase(sKeyWord),UpperCase(sch.Name))>0 then
begin
sName:=sch.Name;
spath:=ADirectory+'/'+sch.Name;
SynChronize(PutToGrid);
end;
if sch.Attr=faDirectory then //有子文件夹
begin
Find(ADirectory +'/'+sch.Name);
end
end;
end;
finally
Sysutils.FindClose(sch);
end;
end;

顶

TO: lunyx,

你发的那些是查找文件.不是遍历文件吧.

[]0分

不好意思，是我发帖的时候出现了问题，第一次发的时候没发出去，然后我点后退然后继续提交，后来才看见零分，不好意思，另外开贴接分。

自己写了一下，基本已完成，谢谢大家，