清空目錄內所有檔案....急...很急 |
尚未結案
|
senix
一般會員 發表:28 回覆:25 積分:10 註冊:2002-03-15 發送簡訊給我 |
|
Miles
尊榮會員 發表:27 回覆:662 積分:622 註冊:2002-07-12 發送簡訊給我 |
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
------
我不是高手, 高手是正在銀幕前微笑的人. |
Dalman
一般會員 發表:27 回覆:22 積分:24 註冊:2002-08-21 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |