delphi DeleteDirectory 删除目录下所有文件包括子文件夹下所有文件

本文整理自网络，侵删。

 
procedure DeleteDirectory(const Name: string);
var
  F: TSearchRec;
begin
  if FindFirst(Name + '\*', faAnyFile, F) = 0 then begin
    try
      repeat
        if (F.Attr and faDirectory <> 0) then begin
          if (F.Name <> '.') and (F.Name <> '..') then begin
            DeleteDirectory(Name + '\' + F.Name);
          end;
        end else begin
          DeleteFile(Name + '\' + F.Name);
        end;
      until FindNext(F) <> 0;
    finally
      FindClose(F);
    end;
    RemoveDir(Name);
  end;
end;

 

相关阅读 >>

Delphi pagecontrol当前页可视

Delphi 个人所得税计算函数

Delphi的获取某坐标的颜色值

Delphi spcomm 调试串口解决总是在程序断开的时候才发送指令的问题

Delphi firemonkey的stylebook皮肤控件的使用

Delphi过滤一段字符里面的html代码的函数

Delphi 通过进程id获取进程名

Delphi 服务器与客户端的时间同步

Delphixe firemonkey 如何画图

Delphi webbrowser 无法调用当前浏览器的版本

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi DeleteDirectory 删除目录下所有文件包括子文件夹下所有文件