delphi 删除文件
来源:互联网 发布:淘宝运营学徒靠谱吗 编辑:程序博客网 时间:2024/05/07 12:57
function 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;
简单的办法:
用TFileListBox控件,Directory=ADir,
for i := 0 to FileListBox1.Items.Count - 1 do begin
DeleteFile(PChar(FileListBox1.Items[i]));
end;
其实就是一个一个删除目录里的文件,也可以自己写代码获得目录里的所有文件,
如果有子目录,可以用递归的方法删除
- delphi 删除文件
- Delphi 删除文件目录!
- delphi 删除文件
- Delphi 支持通配符删除文件!
- 删除文件和目录(Delphi实现)
- delphi 删除指定文件夹下所有文件
- 阻止删除文件(文件占坑)的delphi代码
- 用delphi删除一文件夹下面的全部文件
- Delphi重建与删除Foxpro(DBF)数据库索引文件CDX
- delphi 删除指定目录 下 指定日期之前所有文件
- Delphi 文件
- 用delphi删除文件夹
- Delphi删除文件夹
- Delphi 删除文件夹
- Delphi 删除控件问题
- Delphi程序自删除
- Delphi实现自我删除
- Delphi 删除目录
- JavaScipt的一些小技巧
- windows安装设备的过程(译自DDK doc)
- 使用Maven2快速创建项目
- 对话框 重载OnIdle(6月8日)
- CentOS 5.2 国内比较快的源
- delphi 删除文件
- 命令行编译开源代码GDAL/OGR(5月28日)
- 将yum的目标服务器更改为中国大陆服务器镜像
- jstl中的标签type属性
- SQL Server 改善SQL语句
- ClientDC和CPaintDC(5月26日)
- 常用经典SQL语句
- 网页弹窗代码特效大全
- 让DataGridView的列宽自适应