• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

Delphi遍历所有目录和子目录下的文件名(可按后缀名遍历)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
procedure EnumFileInQueue(path: PChar; fileExt: string; fileList: TStringList);  
var  
   searchRec: TSearchRec;  
   found: Integer;  
   tmpStr: string;  
   curDir: string;  
   dirs: TQueue;  
   pszDir: PChar;  
begin  
   dirs := TQueue.Create; //创建目录队列  
   dirs.Push(path); //将起始搜索路径入队  
   pszDir := dirs.Pop;  
   curDir := StrPas(pszDir); //出队  
   {开始遍历,直至队列为空(即没有目录需要遍历)}  
   while (True) do  
   begin  
      //加上搜索后缀,得到类似'c:\*.*' 、'c:\windows\*.*'的搜索路径  
      tmpStr := curDir + '\*.*';  
      //在当前目录查找第一个文件、子目录  
      found := FindFirst(tmpStr, faAnyFile, searchRec);  
      while found = 0 do //找到了一个文件或目录后  
      begin  
          //如果找到的是个目录  
         if (searchRec.Attr and faDirectory) <> 0 then  
         begin  
          {在搜索非根目录(C:\、D:\)下的子目录时会出现'.','..'的"虚拟目录" 
          大概是表示上层目录和下层目录吧。。。要过滤掉才可以}  
            if (searchRec.Name <> '.') and (searchRec.Name <> '..') then  
            begin  
               {由于查找到的子目录只有个目录名,所以要添上上层目录的路径 
                searchRec.Name = 'Windows'; 
                tmpStr:='c:\Windows'; 
                加个断点就一清二楚了 
               }  
               tmpStr := curDir + '\' + searchRec.Name;  
               {将搜索到的目录入队。让它先晾着。 
                因为TQueue里面的数据只能是指针,所以要把string转换为PChar 
                同时使用StrNew函数重新申请一个空间存入数据,否则会使已经进 
                入队列的指针指向不存在或不正确的数据(tmpStr是局部变量)。}  
               dirs.Push(StrNew(PChar(tmpStr)));  
            end;  
         end  
         else //如果找到的是个文件  
         begin  
             {Result记录着搜索到的文件数。可是我是用CreateThread创建线程 
              来调用函数的,不知道怎么得到这个返回值。。。我不想用全局变量}  
            //把找到的文件加到Memo控件  
            if fileExt = '.*' then  
               fileList.Add(curDir + '\' + searchRec.Name)  
            else  
            begin  
               if SameText(RightStr(curDir + '\' + searchRec.Name, Length(fileExt)), fileExt) then  
                  fileList.Add(curDir + '\' + searchRec.Name);  
            end;  
         end;  
          //查找下一个文件或目录  
         found := FindNext(searchRec);  
      end;  
      {当前目录找到后,如果队列中没有数据,则表示全部找到了; 
        否则就是还有子目录未查找,取一个出来继续查找。}  
      if dirs.Count > 0 then  
      begin  
         pszDir := dirs.Pop;  
         curDir := StrPas(pszDir);  
         StrDispose(pszDir);  
      end  
      else  
         break;  
   end;  
   //释放资源  
   dirs.Free;  
   FindClose(searchRec);  
end;  
  
//调用  
procedure TForm1.Button1Click(Sender: TObject);  
var  
   dir: string;  
   FileNameList: TStringList;  
begin  
   dir := trim(Edit1.Text);  
   FileNameList := TStringList.Create;  
   //EnumFileInQueue(PChar(dir), '.*', FileNameList);  
   EnumFileInQueue(PChar(dir), '.*', FileNameList);  
   ShowMessage(IntToStr(FileNameList.Count));  
   FileNameList.Free;  
end;  


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi-简单10进制转2进制的函数发布时间:2022-07-18
下一篇:
Delphi 2009 超前预知发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap