determinar el tamaño de una fichero

[ecfisa]

Hola.

Otra opción:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TSearchRec sr;
  if(OpenDialog1->Execute()){
    FindFirst(OpenDialog1->FileName,faArchive, sr);
    ShowMessage(OpenDialog1->FileName+" Size:"+IntToStr(sr.Size /1024)+ "Kb.");
  }
}

Y creo que la traducción de la sugerida por Chris sería:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
 TFileStream *FStream;
 if(OpenDialog1->Execute()) {
  FStream = new TFileStream(OpenDialog1->FileName, fmOpenRead);
  ShowMessage(OpenDialog1->FileName+" Size:"+IntToStr(FStream->Size /1024)+ "Kb.");
  delete FStream;
 }
}

Un saludo.

[lmpadron]

Gracias amigos

Antes de ver el post de ecfisa me entretuve en tratar de llevar de delphi a c++ el del amigo Chris y me quedo algo asi

TFileStream *File = new TFileStream(OpenDialog1->FileName, fmOpenRead);
     if (File->Size >= 600000)
     {
                MIS OPCIONES   
                delete File;
     }

Gracias por su ayuda

[[escafandra]]

También puedes ojear este tema en C++: Obtener tamaño fichero grande.


Saludos.