hnxxcxg

于 2008-11-27 15:31:00 发布

阅读量280

点赞数

CC 4.0 BY-SA版权

文章标签： string

本文链接：https://blog.youkuaiyun.com/hnxxcxg/article/details/3391639

本文介绍了一个Delphi过程，用于递归地删除指定目录及其包含的所有子文件夹和文件。通过查找并处理文件属性，该过程可以有效清空整个文件夹结构。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

procedure DeleteDir(sDirectory: String);
//删除目录和目录下得所有文件和文件夹
var
sr: TSearchRec;
sPath,sFile: String;
begin
//检查目录名后面是否有 '/'
if Copy(sDirectory,Length(sDirectory),1) <> '/' then
sPath := sDirectory + '/'
else
sPath := sDirectory;

//------------------------------------------------------------------
if FindFirst(sPath+'*.*',faAnyFile, sr) = 0 then
begin
repeat
sFile:=Trim(sr.Name);
if sFile='.' then Continue;
if sFile='..' then Continue;

sFile:=sPath+sr.Name;
if (sr.Attr and faDirectory)<>0 then
DeleteDir(sFile)
else if (sr.Attr and faAnyFile) = sr.Attr then
DeleteFile(sFile); //删除文件
until FindNext(sr) <> 0;
FindClose(sr);
end;
RemoveDir(sPath);
//------------------------------------------------------------------
end;