求一算法!比较急,谢谢!

[like77200]

用一算法找出你电脑D:\下所有扩展名为"*.xls"的文件,如果找到,请输出文件名及路径;如没有就显示没有找到.(注:不能用递归算法)

[zuoansuifeng]

不能用递归算法那还有什么算法？ 关注

有个函数可以判断后缀的 UpperCase(ExtractFileExt)

[早起晚睡]

关注中

[like77200]

有人告诉我用回塑法,但我不会写.

[CruelYoung123]

用API不可以么? 必须得自己写呀?

[guolvguolv]

回塑法是什么，不还是递归吗？

[fupauline]

function SearchFile(sFileName, sRootDir: String; bFileOnly,bRecurse: Boolean): TStringlist;
procedure DoSearchFile(sFileName, sRootDir: String; bFileOnly,bRecurse: Boolean; var FileList: TStringList);
var
Found: Integer;
SearchRec: TSearchRec;
begin
Found := FindFirst(sRootDir+'\*.*', faAnyFile, SearchRec);
while Found=0 do
begin
if (SearchRec.Attr=faDirectory) and (SearchRec.Name<>'.') and
(SearchRec.Name <>'..') then
begin
if (AnsiCompareText(sFileName, SearchRec.Name)=0) and not bFileOnly then
FileList.Add(sRootDir+'\'+SearchRec.Name);
if bRecurse then
DoSearchFile(sFileName, sRootDir+'\'+SearchRec.Name, bFileOnly, bRecurse, FileList);
end else if (AnsiCompareText(sFileName, SearchRec.Name) =0) then
FileList.Add(sRootDir + '\' + SearchRec.Name);
Found := FindNext(SearchRec);
end;
FindClose(SearchRec);
end;
var
FileList: TStringList;
begin
FileList := TStringList.Create;
FileList.Clear;
DoSearchFile(sFileName, sRootDir, bFileOnly, bRecurse, FileList);
Result := FileList;
end;

自己改一改