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

原创 2007年09月18日 12:39:00

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; 

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

java遍历删除指定文件夹下面的相同格式或指定格式的file文件

在程序员编写代码的过程中,可能会遇到需要删除一个文件夹下的某种格式类型的所有文件,比如doc、docx、 MP4、avi等格式文件。    所以,简单提供一下思路和代码,已经有好思路和代码的程序员可忽...

删除文件夹所有文件

  • 2014-09-16 09:27
  • 39.96MB
  • 下载

svn上删除文件和文件夹

  • 2014-12-03 10:59
  • 1.20MB
  • 下载

Java递归-实现阶乘;斐波拉契数列;删除文件夹的文件

所谓递归(Recursion),就是方法调用自身,对于递归来说,一定要有一个出口,让递归结束,只要这样,才能保证不出现死循环。 ————————实例1: /* * 使用递归实现阶乘 */ ...

删除文件夹和文件

今天看到了一个用java实现复制,剪切,删除文件或文件夹的示例,感觉不错,欢迎学习(带详细注释)

import java.io.File; import java.io.FileInputStream; import java.io.FileOutputStream; import java...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)