delphi删除整个目录及目录下的文件
Posted 游子日月长
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了delphi删除整个目录及目录下的文件相关的知识，希望对你有一定的参考价值。
//删除整个文件夹及其下的所有文件
function 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
{System.Sysutils.}DeleteFile(aDir + vSearch.name);
end;
end;
vRet := FindNext(vSearch);
end; //while
{System.SysUtils.}FindClose(vSearch);
Removedir(aDir); // 如果需要删除文件夹则添加
result := True;
end;
以上是关于delphi删除整个目录及目录下的文件的主要内容，如果未能解决你的问题，请参考以下文章