Pesquisar no Programero

quinta-feira, 4 de junho de 2009

Verificar tamanho de arquivo (Delphi)

Para essa pequena dica construiremos um formulário contendo dois Edits e um botão, o primeiro Edit recebe o caminho e nome do arquivo, o segundo receberá o tamanho em bytes.
Segue a cadificação do evento click do botão:
procedure TForm1.Button1Click(Sender: TObject);
var
  SR: TSearchRec;
  I: integer;
begin
  I := FindFirst(Edit1.Text, faArchive, SR);
  try
    if I = 0 then
      Edit2.Text := IntToStr( SR.Size )
    else
      Edit2.Text := '-1';
  finally
    FindClose(SR);
  end;
end;

Baixe o exemplo completo aqui.

7 comentários:

  1. Qual é pasta, aparece -1...

    Tem como saber o tamanho da Pasta ?

    ResponderExcluir
  2. Olá Eduardo, se o valor -1 foi retornado é porque o arquivo não foi encontrado (essa dica é para pegar o tamanho dos arquivos), em meu último post mostro como listar arquivos em diretórios, no exemplo aproveitando sua dúvida coloquei a opção para verificar o tamanho de cada arquivo listado, somando esses valores temos o tamanho total da pasta, abraços...

    http://programero.blogspot.com/2009/06/listar-arquivos-existentes-em-diretorio.html

    ResponderExcluir
  3. Olá Eduardo, agradeço sua visita e por ter se tornado meu seguidor.
    Parabéns pelo seu blog é muito produtivo.
    abraços.
    Eliane

    ResponderExcluir
  4. O tamanho fornecido está em Kb?

    ResponderExcluir
  5. Isso amigo anônimo, em kb, e obrigado pelo comentário...

    ResponderExcluir
  6. como seria este codigo se eu fosse
    Extrair o tamanho de um arquivo, só que este arquivo estando na internet.

    tipo eu informo um a url do arquivo ele retorna o tamanho.

    ResponderExcluir
  7. Eduardo o resultado esta sendo fornecido em bytes e não em Kb

    ResponderExcluir

Obrigado por Participar do programero, fique a vontade para agradecer, retificar, perguntar ou sugerir.