【原创】清空目录(附源码)

原创 2005年05月21日 23:35:00

        删除目录,必须要保证该目录为空,即不能存在任何文件和子目录,才能删除该目录,否则删除不掉该目录。以下代码就是用来清空目录的,删除一个目录里的所有文件包括子目录。使用了递归调用。

procedure  ClearDir(path: string);
var
  FSearchRec: TSearchRec;
  FindResult: shortint;
begin
  FindResult := FindFirst(path + '*.*', faAnyFile, FSearchRec);
  try
    while FindResult = 0 do
    begin
      if ((FSearchRec.Attr and faDirectory) = faDirectory)
        and (FSearchRec.Name <> '.') and (FSearchRec.Name <> '..') then
      begin
        ClearDir(path + FSearchRec.Name + '/');
        RemoveDir(path + FSearchRec.Name);
      end
      else if (FSearchRec.Attr and faDirectory) <> faDirectory then
        DeleteFile(path + FSearchRec.Name);
      FindResult := FindNext(FSearchRec);
    end;
  finally
    FindClose(FSearchRec);
  end;
end;

FindFirst:命令对指定的文件名及属性搜索目录。
FindNext:命令返回与文件名及属性匹配的下一入口。
RemoveDir:删除目录,要保证该目录为空。
DeleteFile:删除文件。
关于这些函数详细解释请参考Delphi帮助。

前海征信“好信杯”大数据算法竞赛 - H&M队【附源码】 原创 2017-06-17 高铭 科赛Kesci 赛题回顾 自2006年Hinton等人提出“深度学习”概念至今,深度学习在海量数据的挖

前海征信“好信杯”大数据算法竞赛 - H&M队【附源码】 原创 2017-06-17 高铭 科赛Kesci 赛题回顾  自2006年Hinton等人提出“深度学习”概...

C语言做的接鸡蛋小游戏(附源码注释)【原创】

//以下是接鸡蛋小游戏源码  。建议在VS中运行调试! /* 头文件 */ # include # include # include # include # include ...

(原创)悟空天气------Android源码下载地址,代码结构与解析,附App截图

自己写的开源天气类应用---悟空天气,具有选择城市,城市定位,pm值显示,无网络数据缓存,天气预报,桌面widget等功能。...

基于多线程和SOCKET的聊天室(原创附源码)【没有控件的ASP.NET】

主要功能   思路:所有的客户端操作都由服务端向其它客户端转达,客户端之间除了在文件直接传送时进行了交互(发送和接受发送也经过服务端),其它操作都经过服务端。   服务端:开启服务/关闭/在线管理...

奥利奥聊天机器人1.0【原创】【源码附注释】【C语言】

大家有什么意见可以在文章下面留言,或者加Q交流 /* ======================================= 【奥利奥聊天机器人1.0】 作...

【附源码】【Android 3D OpenGL】开发之二——旋转的三角形【MacroCheng原创】

一、建立三角形的模型 1.1、三角形原理 一般我们建一个三角形需要这么三个数据:          索引数组          顶点坐标数组          顶点对应的颜色数组 三角形就...

【附源码】【Android 3D OpenGL】开发之四——投影中的正交与透视【MacroCheng原创】

【附源码】【Android 3D OpenGL】开发之四——投影中的正交与透视【MacroCheng原创】 一、正交与透视 1.1、正交Orthographic (无消失点投影) 正交视...

C语言解析pcap文件得到HTTP信息实例(原创,附源码)

程序功能为解析由Wireshark生成的pcap文件。 实现步骤: 1)用Wireshark软件抓包得到test.pcap文件 2)程序:分析pcap文件头 -> 分析pcap_pkt头 -> ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:【原创】清空目录(附源码)
举报原因:
原因补充:

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