delphi 删除文件

2017-11-14 19:10:53来源:CSDN作者:qq_38204686人点击

分享
del('C:/Users/Administrator/Desktop/delphi/wenjian/Win32/Debug/','*.txt');
//删除文件       目录           //文件名 可以有通配符    procedure del(mulu : string ; f : string);var  SearchRec : TSearchRec;begin  //查找相应目录的指定文件  文件类型 any 存放查找结果  if FindFirst(mulu+f, faAnyFile, SearchRec)=0 then  begin    repeat       //修改文件属性为普通属性值  不然可能无法删除         FileSetAttr(mulu+SearchRec.Name,0);       //删除文件  查找的结果会存放到 name       DeleteFile(mulu+SearchRec.Name);       //继续按查找第一个的条件查找下一个文件        until(FindNext(SearchRec)<>0);  end;  //释放内存  FindClose(SearchRec);end;

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台