主题：关于遍立目录的........ 来看看
qiugaoqil
[专家分：0] 发布于 2007-04-04 09:32:00
[em4]遍立目录要哪几个步骤啊,请大哥们举例一个方法好吗??????????
回复列表 （共2个回复）
沙发
yaojp7519 [专家分：600] 发布于 2007-04-04 10:43:00
用API的
FindFirst
FindNext
FindClose
来实现的.
板凳
blackeagle136 [专家分：0] 发布于 2007-04-04 17:37:00
delphi帮助里就与例子啊,例如遍立D:\根目录,将所有文件名中包括'计划'两个字的扩展名是xls的EXCEL文件路径添加到Memo控件中,你可以这么写:
procedure TFormM.FindDExcelFile(Sender: TObject);
var
sr1: TSearchRec;
begin
if FindFirst('D:\*.xls', faAnyFile, sr1) = 0 then
begin
repeat
if pos('计划',lowercase(sr1.Name))>0 then
Memo.Lines.Add('D:\'+sr1.Name);
until FindNext(sr1) <> 0;
FindClose(sr1);
end;
end;
我来回复
您所在位置：