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.
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.
Qual é pasta, aparece -1...
ResponderExcluirTem como saber o tamanho da Pasta ?
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...
ResponderExcluirhttp://programero.blogspot.com/2009/06/listar-arquivos-existentes-em-diretorio.html
Olá Eduardo, agradeço sua visita e por ter se tornado meu seguidor.
ResponderExcluirParabéns pelo seu blog é muito produtivo.
abraços.
Eliane
O tamanho fornecido está em Kb?
ResponderExcluirIsso amigo anônimo, em kb, e obrigado pelo comentário...
ResponderExcluircomo seria este codigo se eu fosse
ResponderExcluirExtrair o tamanho de um arquivo, só que este arquivo estando na internet.
tipo eu informo um a url do arquivo ele retorna o tamanho.
Eduardo o resultado esta sendo fornecido em bytes e não em Kb
ResponderExcluir