請問 要如何清空指定目錄內所有檔案或者刪除某指定目錄, 因為DEL4有CreateDir與DeleteDir 的fonction, 以為DEL6也有,但發覺DEL6竟然只有CreateDir的fonction, 要使用DEL6何種fonction才能處理ㄋ......謝謝

Hi senix兄您好    http://delphi.about.com/bltip1199.htm 轉貼

uses ShellAPI;
Function DelTree(DirName : string): Boolean;
{
Completely deletes a directory regardless
of whether the directory is filled or has
subdirectories.  No confirmation is requested
so be careful. If the operation is successful
then True is returned, False otherwise
}
var
 SHFileOpStruct : TSHFileOpStruct;
 DirBuf         : array [0..255] of char;
begin
 try
  Fillchar(SHFileOpStruct,Sizeof(SHFileOpStruct),0);
  FillChar(DirBuf, Sizeof(DirBuf), 0 );
  StrPCopy(DirBuf, DirName);
  with SHFileOpStruct do begin
   Wnd    := 0;
   pFrom  := @DirBuf;
   wFunc  := FO_DELETE;
   fFlags := FOF_ALLOWUNDO;
   fFlags := fFlags or FOF_NOCONFIRMATION;
   fFlags := fFlags or FOF_SILENT;
  end; 
   Result := (SHFileOperation(SHFileOpStruct) = 0);
  except
   Result := False;
 end;
end;
//
//
//
//
//
//
{
//使用方式    if DelTree('c:\TempDir') then
  ShowMessage('Directory deleted!')
else
  ShowMessage('Errors occured!');
}    

我不是高手, 高手是正在銀幕前微笑的人. 發表人 - miles 於 2003/01/24 15:53:59

------


我不是高手, 高手是正在銀幕前微笑的人.

大哥，請撥空看一下這個連址網址，相信你要解決的問題，已經幫你完備好了 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=21922