|
|
Alkönyvtárban lévő állományok összméretének lekérdezése
|
|
Példaprogram letöltése
6120 bájt
|
Hogy egy könyvtár az összes alkönyvtárával és fájljaival együtt mennyi helyet foglal el a háttértáron, azt könnyen megnézhetjük, mondjuk a Windows Intézőben. Ha viszont programból szeretnénk ezt az információt megtudni, akkor már nehezebb dolgunk van. Mellékelt példában erre keresünk egyszerű megoldást.
A "dirsize.pas" fájl nem csupán a könyvtár méretének lekérdezésére alkalmas függvényt tartalmazza, hanem egy másikat is, ami egy adott könyvtárban található alkönyvtárak listáját olvassa be egy TStrings típusú változóba. A két függvényt nagyszerűen lehet használni együtt, ahogyan azt a mellékelt példaprogram is mutatja. Első lépésben a GetDirList függvénnyel beolvassuk egy könyvtár alkönyvtárait, majd a kapott listán végighaladva egyenként lekérdezzük a könyvtárak méretét a GetDirSize függvénnyel. Természetesen, ha csak egy könyvtár méretére vagyunk kíváncsiak, akkor elég a GetDirSize függvény használata is!
Nézzük először a GetDirList függvényt. Két paramétere van: az első a könyvtár neve, a második egy TStrings típusú változó, amiben a listát fogjuk tárolni, illetve visszaadni.
function GetDirList(dir: string; list:TStrings):boolean;
…
if Assigned(list) then begin
list.Clear;
if dir[length(dir)]<>'\' then dir:=dir+'\';
if FindFirst(dir+'*.*', faAnyFile, F)=0 then begin
if ((F.Attr and faDirectory)>0) and (F.Name[1]<>'.') then list.Append(dir+F.Name);
until FindNext(F)<>0;
end;
result:=true;
FindClose(F);
end;
end;
function GetDirSize(dir: string):int64;
begin
FDirSize:=0;
ScanDirSize(dir);
result:=FDirSize;
end;
Meghívjuk a ScanDirSize rekurzív eljárást a dir paraméterrel, ami a tényleges munkát fogja végezni.
A függvény visszatérési értéke az FDirSize változó értéke, ami mostanra már a könyvtár által lefoglalt helyet tartalmazza. Erről tudni kell, hogy ez a könyvtárban található fájlok méretével egyenlő, és nem a ténylegesen lefoglalt területtel!
Most nézzük meg a ScanDirSize eljárást, ami a könyvtárban található fájlok méretét összegzi.
procedure ScanDirSize(dir:string);
var F:TSearchRec;
begin
if dir[length(dir)]<>'\' then dir:=dir+'\';
if FindFirst(dir+'*.*', faAnyFile, F)=0 then begin
repeat
if (F.Attr and faDirectory)>0 then begin
if F.Name[1]<>'.' then ScanDirSize(dir+F.Name)
end else begin
Inc(FDirSize, F.Size);
end;
until FindNext(F)<>0;
end;
FindClose(F);
end;
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 436. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|