AI摘要
本文提供了一段Delphi代码，用于实现批量删除指定目录及其下所有文件和子目录的功能。代码首先检查目录名后是否有反斜杠，然后使用TSearchRec结构体遍历目录下的所有文件和子目录，递归删除子目录，最后删除文件和目录本身。同时提供了一个下载链接，供读者下载代码的压缩包。
本文提供了一段Del
delphi代码
- 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;