关闭

删除文件夹以及文件夹下的所有文件

209人阅读 评论(0) 收藏 举报

procedure TForm1.DeleteFolder(psDelPath: string);
var
  loSr: TSearchRec;
begin
  if FindFirst(psDelPath + '/*.*', faAnyFile, loSr) = 0 then
  begin
    if loSr.Attr <> faDirectory then
      DeleteFile(psDelPath + '/' + loSr.Name)
    else
    begin
      if (loSr.Name <> '.') and (loSr.Name <> '..') then
      begin
        DeleteFolder(psDelPath + '/' + loSr.Name);
      end;
    end;

    while FindNext(loSr) = 0 do
    begin
      if loSr.Attr <> faDirectory then
      begin
        DeleteFile(psDelPath + '/' + loSr.Name);
      end
      else if (loSr.Name <> '.') and (loSr.Name <> '..') then
      begin
        DeleteFolder(psDelPath + '/' + loSr.Name);
      end;
    end;

    FindClose(loSr);
  end;
  RemoveDirectory(PChar(psDelPath));
end; 

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:9151次
    • 积分:219
    • 等级:
    • 排名:千里之外
    • 原创:10篇
    • 转载:6篇
    • 译文:0篇
    • 评论:1条
    文章存档
    最新评论