Tamanho do arquivo

11/02/2003

1

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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira