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

原创 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; 

删除文件夹所有文件

  • 2014年09月16日 09:27
  • 39.96MB
  • 下载

Js_对文件和文件夹进行读写和删除

一、功能实现核心:FileSystemObject 对象  其实,要在Javascript中实现文件操作功能,主要就是依靠FileSystemobject对象。   二、FileSystemOb...
  • mikyz
  • mikyz
  • 2017年04月06日 17:21
  • 1290

svn上删除文件和文件夹

  • 2014年12月03日 10:59
  • 1.2MB
  • 下载

FTP 550 Permission denied 只能读文件夹,没法创建,删除及上传文件

今天SERV-U ,FTP 550 Permission denied 只能读文件夹,没法创建,删除及上传文件 出现这种问题: ①首先检查用户对应的角色名,然后看路径设置是否正确,有没有相关的...
  • YHC2113
  • YHC2113
  • 2014年01月07日 22:47
  • 6911

Android 关于文件及文件夹的创建 、删除、重命名、复制拷贝、添加内容、修改内容、读取内容

这几天做了一个Android关于文件及文件夹相关操作的软件,自己就总结写了一个关于文件创建、遍历、删除、重命名、复制拷贝、添加内容、修改内容、读取内容的工具类,方便以后快速的对文件进行一些简单操作,使...
  • javaSXL
  • javaSXL
  • 2017年05月10日 14:33
  • 791
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:删除文件夹以及文件夹下的所有文件
举报原因:
原因补充:

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