如何刪除複數檔案? |
|
尚未結案
|
|
hazard
一般會員   發表：30 回覆：24 積分：10 註冊：2006-10-28 發送簡訊給我 |
|
|
Fishman
尊榮會員   發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject);
var SR: TSearchRec; FilePath,FileFilter : String; begin FilePath := 'C:\Temp\'; FileFilter := 'a*.dat'; if FindFirst(FilePath FileFilter,faAnyFile,SR) = 0 then begin repeat if (SR.Attr and faDirectory) <> faDirectory then begin Application.ProcessMessages; DeleteFile(sr.Name); end; until FindNext(sr) <> 0; FindClose(SR); end; end; Fishman
------
Fishman |
|
hazard
一般會員 發表：30 回覆：24 積分：10 註冊：2006-10-28 發送簡訊給我 |
感謝，經測試後ok,不過 Fishman 大少加了一個變數
DeleteFile(FilePath sr.Name); ===================引 用 文 章=================== procedure TForm1.Button1Click(Sender: TObject); var ? SR: TSearchRec; ? FilePath,FileFilter : String; begin ? FilePath := 'C:\Temp\'; ? FileFilter := 'a*.dat'; ? if FindFirst(FilePath FileFilter,faAnyFile,SR) = 0 then ??? begin ????? repeat ??????? if (SR.Attr and faDirectory) <> faDirectory then ????????? begin ??????????? Application.ProcessMessages; ??????????? DeleteFile(sr.Name); ????????? end; ????? until FindNext(sr) <> 0; ????? FindClose(SR); ??? end; end; Fishman |
|
Fishman
尊榮會員 發表：120 回覆：1949 積分：2163 註冊：2006-10-28 發送簡訊給我 |
發表時間：2006-10-13 10:09:37
IP:211.72.xxx.xxx 未訂閱
系統時間：2024-05-17 12:21:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |