delphi批量删除同类文件(带通配符)

本文整理自网络，侵删。

 delphi批量删除同类文件(带通配符)
procedure DelFiles(fileName: string);
var
SearchRec: TSearchRec;
begin
ChDir(ExtractFilePath(fileName)); //进入文件路径
FindFirst(fileName, faAnyFile, SearchRec);
repeat
if FileExists(SearchRec.Name) then
begin
//FileSetAttr(SearchRec.Name,0); //修改文件属性为普通属性值
DeleteFile(SearchRec.Name); //删除文件
end;
until(FindNext(SearchRec)<>0);
FindClose(SearchRec);
end; 

相关阅读 >>

Delphi tms web core js callproc

Delphi tbitmap创建时提示object or class type required

Delphi shellexecute openurl 的跨平台实现

Delphi 怎么不注册 dll 就调用 com

Delphi dpr文件误删怎么办

Delphixe7关于android 检测屏幕是否处于关闭状态

Delphi 系统托盘 trayicon

Delphi 将对象转换为json字符串或tjsonobject

Delphi控制面板应用大全

Delphi 四舍五入保留一位或两位小数

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi批量删除同类文件(带通配符)