delphi 删除目录下指定类型文件

procedure Deletefiles(APath, AFileSpec: string); //*.txt *.*

var

lSearchRec:TSearchRec;

lFind:integer;

lPath:string;

dirname: string;

begin

lPath := IncludeTrailingPathDelimiter(APath);

if DirectoryExists(lPath) then

begin

lFind := FindFirst(lPath+AFileSpec,faAnyFile,lSearchRec);

while lFind = 0 do

begin

dirname := lSearchRec.Name;

if (dirName <> '.')

and (dirName <> '..')

and (FileExists(lPath+dirName)) then

begin

DeleteFile(lPath+dirname);

end;

lFind := FindNext(lSearchRec);

end;

FindClose(lSearchRec);

end;

推荐分享