您好,欢迎光临投文赚赚网,记得收藏投文赚赚网哦!
注册     登陆
       在投文赚赚网上可发布视频、音频、图像、文章、文件、小说等不同种类的作品赚钱!只要有访客来访,就可能赚到钱哦!
投文赚赚
客服:
点击这里给我发消息
客服:点击这里给我发消息
delphi中获取所有子文件夹
作者:chengmingfangfang    发布时间:2021/4/25 13:54:08    浏览量:40

procedure FindAllDir(const parentDir:string;List:TStrings;const recursively:Boolean=False); //获取所有子文件夹

var

    hFindFile: THandle;

    FindFileData: WIN32_FIND_DATA;

    FullName,FName,s:string;

begin

    //ShowMessage(dir);

    s:=IncludeTrailingPathDelimiter(parentDir);

    hFindFile := FindFirstFile(pchar(s+'*.*'), FindFileData); {便利所有文件 *.*}

    if hFindFile <> 0 then begin

      repeat

        FName:=FindFileData.cFileName;

        FullName:=s+FName;

        if (FName='.') or (FName='..') then continue;

        if ((FindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY)  then   //如果是目录

        begin

          List.Add(FullName);

          if recursively then

            FindAllDir(FullName,List,recursively);

        end;

      until FindNextFile(hFindFile, FindFileData) = false;

      windows.FindClose(hFindFile);

    end;

end;


注:这篇文章已获得了0个赞。
点击此处点赞
注:您的支持将使我们做得更好。
使用支付宝扫码付款打赏。
二维码
注:将此网页的网址复制、粘贴到QQ空间、腾讯朋友圈、新浪博客、百度贴吧等社交平台,可以分享这篇文章,也可使用浏览器的分享功能分享文章,若浏览器无分享功能,可更换浏览器。可通过“百度一下”了解如何使用浏览器分享文章。
看了文章后,是否觉得有需要购买的商品啊?在下面的商品搜索输入框中输入需要购买的商品的关键词,然后点击“搜索”按钮,即可搜索到您想购买的商品哦!
聊天室22783评论消息 评论消息数:0
作者拥有文章版权
侵权必究
文章的侵权责任,由作者本人承担
联系QQ:874402528
蜀ICP备20005130号
m站首页
祭祀网-网上墓园资中特产