Dicas - Como calcular o tamanho de um diretório

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja nesta dica, como calcular o tamanho de um diretório.

Como calcular o tamanho de um diretório

 

Tente a seguinte função, que procura por arquivos “normais”, além de ocultos, de sistema e compactados. Usa um algoritmo recursivo para procurar em todos os sub-diretórios. Apenas forneça um diretório inicial como parâmetro.

 

var

  DirBytes: integer;

 

function FolderSize(Dir: string): integer;

var

  SearchRec: TSearchRec;

  Separator: string;

begin

  Result := 0;

  if Copy(Dir,Length(Dir),1)='\' then

    Separator := ''

  else

    Separator := '\';

  if FindFirst(Dir+Separator+'*.*', faAnyFile, SearchRec) = 0 then

  begin

    if FileExists(Dir+Separator+SearchRec.Name) then

    begin

      DirBytes := DirBytes + SearchRec.Size;

    end

    else if DirectoryExists(Dir+Separator+SearchRec.Name) then

    begin

      if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then

      begin

        FolderSize(Dir+Separator+SearchRec.Name);

      end;

    end;

    while FindNext(SearchRec) = 0 do

    begin

      if FileExists(Dir+Separator+SearchRec.Name) then

      begin

        DirBytes := DirBytes + SearchRec.Size;

      end

      else if DirectoryExists(Dir+Separator+SearchRec.Name) then

      begin

        if (SearchRec.Name<>'.') and (SearchRec.Name<>'..') then

        begin

          FolderSize(Dir+Separator+SearchRec.Name) ;

        end;

      end;

    end;

  end;

  FindClose(SearchRec) ;

  Result := DirBytes;

end;

 

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?