Tamanho do Arquivo

Delphi

10/03/2003

Alguém sabe como pegar o tamanho do arquivo aberto por OpenDialog??


Okama

Okama

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

10/03/2003

Segue um exemplo:

var nHandle: Integer;
  nTamanho: Integer;
begin
  nHandle := FileOpen(OpenDialog1.FileName,fmShareDenyNone);
  nTamanho := FileSeek(nHandle,0,2);
  ShowMessage(IntToStr(nTamanho));
end;



GOSTEI 0
Okama

Okama

10/03/2003

:wink: Valeu Aroldo, era exatamente isso que eu precisa....


GOSTEI 0
POSTAR