批量删除同类文件的函数
2007-11-24 23:43
232 查看
procedure DelFiles(f: string); var SearchRec: TSearchRec; begin ChDir(ExtractFilePath(f)); //进入文件路径 FindFirst(f, faAnyFile, SearchRec); repeat if FileExists(SearchRec.Name) then begin //FileSetAttr(SearchRec.Name,0); //修改文件属性为普通属性值 DeleteFile(SearchRec.Name); //删除文件 end; until(FindNext(SearchRec)<>0); FindClose(SearchRec); end;
相关文章推荐
- C# 代码文件头部注释批量写入, 函数注释批量删除的工具
- 批量删除同类文件(带通配符)
- Linux下通配符批量删除相同文件
- 批量删除相同后缀的文件
- C语言remove()函数:删除文件或目录
- Asp.Net 文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)
- [C#]使用CMD命令删除文件函数
- Linux 批量删除文件后缀
- Asp.Net_文件操作基类(读取,删除,批量拷贝,删除,写入,获取文件夹大小,文件属性,遍历目录)
- 用于mmgrid表格批量删除的函数
- Asp.Net 文件操作基类(读取,删除,批量拷贝,批量删除,写入)
- C语言中建立和删除文件连接的相关函数讲解
- PHP多重判断删除文件函数
- 批量删除文件【批处理】
- linux 批量删除 svn文件
- 批处理 批量删除当前目录及子目录下多个指定的扩展名文件
- git 批量删除文件夹和文件
- 利用node实现一个批量重命名文件的函数
- C语言判断文件夹或者文件是否存在以及权限等信息access函数和删除文件或目录 remove()函数使用实例
- 批量删除某个目录下的 某类型文件方法