删除文件代码,Delphi代码库,德仔网

代码语言

代码分类

【Delphi】删除文件

作者:dezai / 发布于2014/2/26/ 1439

unction TMainForm.DeleteDirectory(NowPath: string): Boolean; //删除整个目录
 var
 search: TSearchRec;
 ret: integer;
 key: string;
 begin
 if NowPath[Length(NowPath)] <> '/' then
 NowPath := NowPath + '/';
 key := Nowpath + '*.*';
 ret := findFirst(key, faanyfile, search);
 while ret = 0 do begin
 if ((search.Attr and fadirectory) = faDirectory)
 then begin
 if (Search.Name <> '.') and (Search.name <> '..') then
 DeleteDirectory(NowPath + Search.name);
 end else begin
 if ((search.attr and fadirectory) <> fadirectory) then begin
 deletefile(NowPath + search.name);
 end;
 end;
 ret := FindNext(search);
 end;
 findClose(search);
 removedir(NowPath);//这个是删除本文件夹的
 result := True;
 end;

试试其它关键字

　删除文件　

同语言下

.多边形面积
.限定软件使用时间
.获取磁盘空间大小
.窗口文字淡入淡出渐变效果
.创建开机启动项
.检测并枚举系统安装的打印机
.实现保存和读取图片
.字符串分隔函数
.将BMP格式图形转化为JPG格式
.解析FTP地址

可能有用的

.C#实现的html内容截取
.List 切割成几份工具类
.SQL查询多列合并成一行用逗号隔开
.一行一行读取txt的内容
.C#动态修改文件夹名称(FSO实现，不移动文件)
.c# 移动文件或文件夹
.c#图片添加水印
.Java PDF转换成图片并输出给前台展示
.网站后台修改图片尺寸代码
.处理大图片在缩略图时的展示

dezai贡献的其它代码(1065)

.双色球
.列出所有物理网络适配器
.快乐数的 Python 实现
.计算当月还剩天数
.猜属相
.二十四小时时钟
.每日一语
.很酷的日历
.超长日历表单
.最简单的时钟