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 xe5 给edit增加自定义按钮

Delphi 圆角panel

Delphi winapi: getmodulefilename、getmodulehandle

Delphi dbexpress的upwherekeyonly的使用注意事项

Delphi�⒆执�传入到windows目前窗口cursor所在位置

Delphi 获取窗口矩形的四种方法: getclientrect、clientrect、getwindowrect、boundsrect

idhttp控件的防止异常的处理

Delphi byte数组根据utf8 转换为string

Delphi winapi: getwindowtext - 获取窗口标题

tidtcpserver控件中文指南

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi删除整个目录及目录下的文件