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');

巴特西

delphi 删除文件夹里面的所有文件

最新文章

热门文章