怎样实现子目录级的文件查询？？？

Question

怎样实现子目录级的文件查询？？？

Answer 1

在应用实践中，我们经常会用到文件查询功能。通过Win95中提供的懳募檎覓，  我们可以方便的找出磁盘上任何子目录下的文件，其原因是该查找功能可以遍历指定目录  
下的所有子目录中的文件。从编程角度讲，它实现了子目录级的文件查询。 其实，这项功能并不难实现，关键是能理解并掌握懙莨閽这种程序设计思路。本  
人用Delphi 实现了该项功能（任意子目录级），由于使用了懙莨閽，程序思路清晰，代码量小。  实现方法：  
1．获取当前目录下的所有下一级子目录，2．存入字符串列表中（Tstrings）。  
其中，用到了几个 API 函数。  FindFirst  
是找出指定目录下第一个文件或目录。  FindNext  
一般和FindFirst配合使用，用来找出下一个文件或目录。  FindClose  
用来关闭查询。  
（以上函数 Delphi 在线帮助中有详尽解释，在此不赘述）；  
3．用 FileExists函数查找当前目录，
4．寻找是否有满足条件的文件存在。  
5．依次使各个子目录成为当前目录，6．递归调用本函数。  
7．释放资源，8．返回查询结果。　 　  
代码如下：  
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; 　  
总之，只要掌握了思路，用哪种编程语言都可以实现。现在，你可以轻松的给你  
的系统挂上  
一个非常实用的功能了。