delphi 刪除文件夾里面的所有文件

1.新增一個函數

function TForm1.DelDirAll(aDir: string): Boolean;
var
vSearch: TSearchRec;
vRet: integer;
vKey: string;
begin
if aDir[Length(aDir)] <> '\' then
aDir := aDir + '\';
vKey := aDir + '*.*';
vRet := FindFirst(vKey, faanyfile, vSearch);
while vRet = 0 do
begin
if ((vSearch.Attr and fadirectory) = fadirectory) then
begin
if (vSearch.Name <> '.') and (vSearch.name <> '..') then
DelDirAll(aDir + vSearch.name);
end
else
begin
if ((vSearch.Attr and fadirectory) <> fadirectory) then
begin
DeleteFile(PAnsiChar(aDir + vSearch.name));
end;
end;
vRet := FindNext(vSearch);
end;
//findClose(vSearch);
//Removedir(aDir); // 如果需要刪除文件夾則添加
result := True;
end;

2.調用函數刪除文件夾里面的文件

DelDirAll('D:\test');