tamanho de arquivos

Delphi

11/04/2003

Oi, gostaria de saber se alguem sabe como descobrir o tamanho de
um arquivo por dentro do delphi.

Obrigado.
Flavio


Flávio Luiz

Flávio Luiz

Curtidas 0

Respostas

Delphor

Delphor

11/04/2003

acho q tinha uma outra, mas ai vai o de cabeca:


f:file;
begin
assignfile(f,´arquivo´);
reset(f,1);
tamanho:=filesize(f);
closefile(f);


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

11/04/2003

Assim

var f: file of Byte;
    T: Longint;
begin
    AssignFile(f, ´C:\AUTOEXEC.BAT´);
    Reset(f);
    try
      t := FileSize(f);
      ShowMessage(´Tamnho do arquivo em bytes: ´ + IntToStr(t));
    finally
      CloseFile(f);
    end;
end;


ou

var iFileHandle: Integer;
    iFileLength: Integer;
begin
    iFileHandle := FileOpen(´C:\AUTOEXEC.BAT´, fmOpenRead);
    iFileLength := FileSeek(iFileHandle,0,2);
    FileClose(iFileHandle);
    ShowMessage(IntToStr(iFileLength));
end;



GOSTEI 0
POSTAR