CSDN博客

img twgx

FindFile

发表于2004/6/29 8:14:00  776人阅读

分类: Delphi相關

procedure FindFiles(StartDir: string);
var
  SR: TSearchRec;   //用来储存返回的文件的一些数据
  IsFound: Boolean;//做为一个标志
begin
  IsFound :=FindFirst(StartDir+'*.htm', faAnyFile-faDirectory, SR) = 0;
//在startdir里面查找htm文件
  while IsFound do begin
//如果找到htm文件
    GetEmailAddress(startdir+sr.Name);
//这里调用我们自己定义的函数,传递的参数是startdir+sr.name也就是该文件的绝对路径。
//注意,这里的函数 GetEmailAddress我们等一下再来描述    
    IsFound := FindNext(SR) = 0;
//继续查找htm文件,只到标志isfound为false
  end;
  FindClose(SR);
  IsFound := FindFirst(StartDir+'*.*', faAnyFile, SR) = 0;
//现在是查找所有的文件
  while IsFound do begin
    if ((SR.Attr and faDirectory) <> 0) and(SR.Name[1] <> '.') then
      findfiles(startdir+sr.Name+'/');
//如果该文件是目录,并且不是"."或者"..",那么就在该目录里继续查找,也就是在这里递归了。
    IsFound := FindNext(SR) = 0;
  end;
  FindClose(SR);
end;
0 0

相关博文

我的热门文章

img
取 消
img