Delphi a adresáre

Ako zistím veľkosť adresára a počet všetkých vnorených adresárov v ňom??

Táto funkcia... :

function TForm1.DirFullSize(Path: string): Int64;
 var sr: TSearchRec; A: integer; Size: Integer;
function DirSize(Path: string): Int64;
 var sr: TSearchRec; A: integer; Size: Integer;
begin
Size:=0;
A:=FindFirst(Path+'\*.*',faAnyFile, sr);
While A=0 do
 begin
 If (sr.attr<>faDirectory) and ((sr.name<>'.') and (sr.name<>'..')) THEN size:=size+sr.size;
 A:=FindNext(sr);
 end;
FindClose(sr);
DirSize:=Size;
end;
begin
Size:=DirSize(Path);
A:=FindFirst(Path+'\*.*',faAnyFile, sr);
While A=0 do
 begin
 If (sr.attr=faDirectory) and ((sr.name<>'.')and(sr.name<>'..')) THEN size:=size+DirSize(Path+'\'+sr.Name);
 A:=FindNext(sr);
 end;
FindClose(sr);
DirFullSize:=Size;
end;

... to nerobí korektne, keď sú v aresároch aj súbory aj ďalšievnorené adresáre súčastne...

Počet súborov viem, ale neviem počet adresárov... vďaka za pomoc!

programator

Jednoducho sa to da upravit rekurzivne. Vysledok vracia v Bajtoch (Testoval som to) :

Kód: Vybrať všetko

function DirFullSize(Path: string): Int64;
var sr: TSearchRec; A: integer; Size: Integer;

   function DirSize(Path: string): Int64;
   var sr: TSearchRec; A: integer; Size: Integer;
   begin
      Size:=0;
      A:=FindFirst(Path+'\*.*',faAnyFile, sr);
      While A=0 do begin
         If (sr.attr<>faDirectory) and ((sr.name<>'.') and (sr.name<>'..')) THEN
            size:=size+sr.size;
            
         A:=FindNext(sr);
      end;
      FindClose(sr);
      Result := Size;
   end;

begin
   Size:=DirSize(Path);
   A:=FindFirst(Path + '\*.*', faAnyFile, sr);

   While A=0 do begin
      If (sr.attr = faDirectory) and ((sr.name <> '.') and (sr.name <> '..')) THEN begin
         size:=size+DirSize(Path + '\' + sr.Name);
         DirFullSize(Path + '\' + sr.Name);
      end;

      A:=FindNext(sr);
   end;

   FindClose(sr);

   Result := Size;
end;

no na jednom súbore to funguje na inom nie... nechápem prečo:( ale vďaka za pomoc...
... vie mi niekto pomôcť?