请问如何删除一子目录及其下面的文件

Question

如题

Answer 1

给你一个例子
procedure TForm1.Button1Click(Sender: TObject); 
  var 
  DirInfo: TSearchRec; 
  r : Integer; 
  begin 
  r := FindFirst('C:\Download\Test\*.*', FaAnyfile, DirInfo); 
  while r = 0 do 
  begin 
  if ((DirInfo.Attr and FaDirectory <> FaDirectory) and 
  (DirInfo.Attr and FaVolumeId <> FaVolumeID)) then 
  if DeleteFile(pChar('C:\Download\test\' + DirInfo.Name)) = false then 
  ShowMessage('Unable to delete : C:\Download\test\' + DirInfo.Name); 
  r := FindNext(DirInfo); 
  end; 
  SysUtils.FindClose(DirInfo); 
  if RemoveDirectory('C:\Download\Test') = false then 
  ShowMessage('Unable to delete direcotry : C:\Download\test'); 
  end;