精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>文件>>子目录级的文件查询的实现

主题:子目录级的文件查询的实现
发信人: teleme(PassWord)
整理人: teleme(2001-02-11 11:20:37), 站内信件
子目录级的文件查询的实现 
发信人: yeniu()
子目录级的文件查询的实现 
在应用实践中,我们经常会用到文件查询功能。通过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; 
  
总之,只要掌握了思路,用哪种编程语言都可以实现。现在,你可以轻松的给你
的系统挂上 
一个非常使用的功能了。
 
[文章转载 北京社区]

[关闭][返回]