如何删除一个目录下的所有文件?

Question

如何删除一个目录下的所有文件?

Answer 1

DeleteFile 函数，删除单个文件，再可利用递归操作删除所有文件
SHFileOperation 文件操作函数，可删除目录和文件最简单就是调用控制台命令 "RD C:\temp /Q /S" 来删除 C:\temp 连同子目录。

Answer 2

给你个函数==
procedure TfrmUpAndDown.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;