Tamanho do arquivo

11/02/2003

2

Como faço para obter o tamanho do arquivo?


Responder

Posts

11/02/2003

Carnette

Tirado do 750 Dicas e Truques em Delphi do LloydSoft

www.lloydsoft.hpg.ig.com.br


function TamArquivo(Arquivo: string): Integer;
begin
with TFileStream.Create(Arquivo, fmOpenRead or fmShareExclusive) do
try
Result := Size;
finally
Free;
end;
end;

Utilize a função assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text:= inttostr(TamArquivo(´CAMINHO\NOMEDOARQUIVO´));
end;


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar