如何刪除複數檔案? |
尚未結案
|
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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |