如何計算資料夾內的檔案數? |
尚未結案
|
Evo
一般會員 ![]() ![]() 發表:6 回覆:9 積分:3 註冊:2003-11-24 發送簡訊給我 |
|
willchen
初階會員 ![]() ![]() 發表:64 回覆:81 積分:29 註冊:2003-05-23 發送簡訊給我 |
void __fastcall TForm1::SearchFiles(AnsiString Dir,AnsiString File) { TSearchRec SearchRec; int iAttr=faAnyFile; int FileFound=0; int FileNumber=0; if(!DirectoryExists(Dir)) { return; } if(Dir.SubString(Dir.Length(),1)!="\\") { Dir=Dir "\\"; } Application->ProcessMessages(); FileFound=FindFirst(Dir "*.*",iAttr,SearchRec); while(FileFound==0) { if(SearchRec.Attr==faDirectory) { if((SearchRec.Name!=".")&&(SearchRec.Name!="..")) { SearchFiles(Dir SearchRec.Name,File); } } else { if(MatchesMask(SearchRec.Name,File)) { Memo1->Lines->Add(Dir SearchRec.Name); FileNumber ; } } FileFound=FindNext(SearchRec); } FindClose(SearchRec); }這是個遞迴的程式,也就是他也會尋找他之下的子目錄檔案個數 你想辦法改一下吧,或許這程式對你有用,改寫應該不難吧 |
taishyang
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
Evo您好:
或是參考下面連結
http://delphi.ktop.com.tw/topic.php?TOPIC_ID=40206 順心
|
Evo
一般會員 ![]() ![]() 發表:6 回覆:9 積分:3 註冊:2003-11-24 發送簡訊給我 |
|
taishyang
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:377 回覆:5490 積分:4563 註冊:2002-10-08 發送簡訊給我 |
|
Evo
一般會員 ![]() ![]() 發表:6 回覆:9 積分:3 註冊:2003-11-24 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |