[Neftali [Germán.Estévez]]

Prueba con ésta función.

Código Delphi [-]
function  GetFileSize(FileName: string): longint; 
  var   
  Srec: SearchRec; 
  begin   
  FindFirst(FileName, $01+$04+$20, Srec);   
  if DosError = 0 then 
        GetFileSize := Srec.Size   
  else 
        GetFileSize := 0; 
  end;