Artigos Delphi Dicas - Extraindo o tamanho de um arquivo

Extrair o tamanho de um arquivo

 

Utilize a função:

 

function TamanhoArquivo(Arquivo: string): Integer;

begin

  with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do

  try

    Result := Size;

  finally

   Free;

  end;

end;

 

O retorno da função é o tamanho em bytes do arquivo. Se você quiser saber o tamanho em Kb, divida o Size por 1024, mas terá que alterar o retorno da função para Double , por exemplo:

 

 

por Luciano Pimenta