一个删除路径下所有文件的函数
来源:互联网 发布:mac os x玩家秘技 编辑:程序博客网 时间:2024/05/21 06:41
function TForm2.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;
- 一个删除路径下所有文件的函数
- 遍历删除一个目录下所有文件的函数
- 删除一个文件夹下的所有文件
- 删除一个目录下的所有文件
- 递归删除某一路径下的所有文件和文件夹
- 删除一个文件目录下的所有文件
- java 递归获取一个目录下的所有文件路径
- linux C 递归找出一个路径下的所有文件
- java读取一个路径下的所有文件
- 获取指定路径下所有文件的C++函数
- VC中删除一个目录下的所有文件
- 删除一个项目下的所有.svn文件
- MFC 删除一个文件夹下的所有文件代码
- 删除一个目录下的所有文件和文件夹
- 获取一个路径下的所有文件及其子文件,子文件夹下的子文件....
- win32下删除给定路径下的所有文件,创建目录
- Java 根据定路径删除文件和文件夹下的所有文件
- windows下获得一个指定文件路径下的所有文件
- LAMP系统性能调优 MySQL数据库服务器优化
- 网络游戏中社会关系的重要性 转
- CStringArray的使用
- 常考语法
- Mysql基本操作全攻略
- 一个删除路径下所有文件的函数
- 警告: [SetPropertiesRule]{Server/Service/Engine/Host/Context} Setting property 'source' to 'org.eclipse.jst.jee.server:webProject'
- C++ int,char,string,CString类型转换 [转]
- vc如何退出程序
- jar包详解和META-INF作用
- VC++6.0中如何发送自定义消息
- VC++6.0中改变窗口背景颜色和控件背景颜色,CDC,我的感觉
- 音乐制作软件大阅兵
- 有个玩意儿叫“命名污染”