delphi DeleteFiles 删除目录下多个文件

function DeleteFiles(const Dir, Wildcard: string): Integer;

var

Files: TStringList; // stores files to be deleted

I: Integer; // loops thru files in folder

AFile: string; // a file to be deleted

Attr: Integer; // attributes of a file

begin

Result := 0;

Files := TStringList.Create;

try

// Get matching list of files / folders in directory

if not ListFiles(Dir, Wildcard, Files) then

Exit;

for I := 0 to Pred(Files.Count) do

begin

AFile := Files[I];

Attr := FileGetAttr(AFile);

// Delete file if it is not a directory

if (Attr and faDirectory = 0) then

begin

if SysUtils.DeleteFile(AFile) then

// File deleted: count it

Inc(Result);

end;

finally

FreeAndNil(Files);

end;

推荐分享