怎样实现子目录级的文件查询???
解决方案 »
- 请教如何将word转换成html???用代码实现
- 北京1300/月怎么过,放弃还是留下来!(应届生)
- 用什么办法解决!
- 【请教】如何从内存流里播放Mp3、WMA等媒体文件?
- 两个问题
- 错误信息,请帮帮忙
- 打印控制码直接端口打印,请问如何改变字体(瘦长型的宋体)?
- 有谁记得这样一句话?好象是一位高手说的:“受辱不惊.....看堂前花开花谢......"
- 请教:有没有函数能直接把字符串后的空格去掉?
- 如何解决机器非正常关机或死机后,数据库数据丢失的问题。答对者100分相送!!!!
- 如何用IDHTTP.Post 自动方式登录一个网站,或已会员身份发表内容?
- 在使用Opendialog选择文件后,再用TStringList.LoadFromFile()读入文件时出错,求救!
下的所有子目录中的文件。从编程角度讲,它实现了子目录级的文件查询。 其实,这项功能并不难实现,关键是能理解并掌握懙莨閽这种程序设计思路。本
人用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;
总之,只要掌握了思路,用哪种编程语言都可以实现。现在,你可以轻松的给你
的系统挂上
一个非常实用的功能了。