搜索子目錄??

代码如下： 
1． 从搜索记录中判断是否是子目录。 
　 
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[i]+ 
'\',Filename,foundresult)or found; 
//资源释放并返回结果。 
subdir1.Free; 
end; 
result:=found; 
end;