搜尋目錄及子目錄的檔案總數與總大小! |
|
尚未結案
|
|
yankee
一般會員   發表：2 回覆：4 積分：1 註冊：2002-08-29 發送簡訊給我 |
我在這裡找到http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18623
我要的答案,但是我在計算完FileSize後,我要將目錄整個Delete掉
會遇到一個問題,就是檔案全部殺掉了,但是路徑還留下
原因是路徑被抓住,我想請問就是我計算完FileSize應該如何把抓住的路徑釋放掉呢?
下面是Function原始碼
//==========================================================
var
TreeCount,FilesCount,DirsCount: integer;
TreeSize,FilesSize,DirsSize: comp;
//--------------------------------------------------------------------
procedure TfrmMain.MakeTree;//計算FileSize
var
Sr: TSearchRec;
Err: integer;
TrSize,FilePath: String;
Begin
Err := FindFirst('*.*',$37,Sr);
while (Err = 0) do
begin
if Sr.Name[1] <> '.' then
begin
FilePath := ExpandFileName(Sr.Name);
TreeSize := TreeSize Sr.Size;
TrSize := FloatToStr(TreeSize);
if (Sr.Attr and faDirectory) = 0 then
begin
FilesSize := FilesSize Sr.Size;
inc(FilesCount);
end;
inc(TreeCount);
end;
{ Begin Recursion }
if ((Sr.Attr and faDirectory) <> 0) and (Sr.Name[1] <> '.') then
begin
DirsSize := DirsSize Sr.Size;
inc(DirsCount);
ChDir(Sr.Name);
MakeTree;
ChDir('..');
end ;
{ End Recursion }
Err := FindNext(Sr);
end ;
end;
//-------------------------------------------------------------------- 發表人 - yankee 於 2004/01/13 12:32:03
|
|
aquarius
資深會員  發表：3 回覆：347 積分：330 註冊：2003-05-21 發送簡訊給我 |
|
|
yankee
一般會員 發表：2 回覆：4 積分：1 註冊：2002-08-29 發送簡訊給我 |
發表時間：2004-01-13 11:19:43
IP:211.21.xxx.xxx 未訂閱
系統時間：2024-05-21 23:32:31
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |