Tamanho do diretório

[Kazu]

Como faço para pegar o tamanho em bytes de um diretório usando Delphi ? Este diretório também possui sub-diretórios.

[percautus]

Utilize uma função recursiva para varrer todos os arquivos dentro do diretório e sub-diretorios e acumular o tamanho de cada um deles.

No final, retorne o tamanho total acumulado.

Segue o código, testado contra as propriedades da pasta do Windows Explorer (bateu).

function CalculaTamanhoDir(Path : String) : Integer;

var

SR : TSearchRec;

rc : Integer;

Tamanho : Integer;

begin

Tamanho := 0;

rc := FindFirst(Path+'\*.*', faDirectory, SR);

if rc = 0 then

begin

while rc = 0 do

begin

if (SR.Name = '.') or (SR.Name = '..') then

else

if (SR.Attr and faDirectory) <> 0 then

begin

Tamanho := Tamanho + CalculaTamanhoDir(Path+SR.Name);

end

else

begin

Tamanho := Tamanho + SR.Size;

end;

rc := FindNext(SR);

end;

FindClose(SR);

end;

result := Tamanho;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

TamanhoDir : Integer;

begin

TamanhoDir := CalculaTamanhoDir(ExtractFilePath(Application.ExeName));

ShowMessage(Format('%d', [TamanhoDir]));

end;