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');
|
请发表评论