有什麼函數可以把一整個字目錄都刪除例如c:\aaa\bbb\ccc\ddd 全部都刪除到c:

你好： 雖然大家都很熱心，但還是先利用 KTop 搜尋的功能找尋你要的答案。 如果依然無解再發問吧。參考這篇文章吧 < href="http://delphi.ktop.com.tw/topic.php?topic_id=21922">http://delphi.ktop.com.tw/topic.php?topic_id=21922

先 uses shallapi; 再用底下的函式

Function DelTree(DirName : string): Boolean;
var
 SHFileOpStruct : TSHFileOpStruct;
 DirBuf         : array [0..255] of char;
begin
 if copy(DirName,length(DirName),1)='\' then DirName:=copy(DirName,1,length(dirname)-1);
 try
  Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0);
  FillChar(DirBuf, Sizeof(DirBuf), 0 );
  StrPCopy(DirBuf, DirName);
  with SHFileOpStruct do begin
   Wnd    := 0;
   pFrom  := @DirBuf;
   lpszProgressTitle:=pchar(DirName);
   wFunc  := FO_DELETE; 
   fFlags := FOF_ALLOWUNDO; //會丟進資源回收桶
   fFlags := FOF_SIMPLEPROGRESS;
   fFlags := fFlags or FOF_NOCONFIRMATION;
   fFlags := fFlags or FOF_SILENT; //簡單靜音模式(不會問你是或否啦)
  end;
   Result := (SHFileOperation(SHFileOpStruct) = 0);
  except
   Result := False;
 end;
end;

我在98/2000/XP/2003上測試過，可用 我不懂，不懂，不懂....所以我才來ktop學工夫

我忘了，上題函式可直接刪除c:\aaa底下的所有檔案，包括所有的目錄樹，用法deltree('c:\aaa');即可 我不懂，不懂，不懂....所以我才來ktop學工夫