Tamaño de archivo

[DarkByte]

¿Cerrar el programa que está usando archivo?. :d como un dicho que apareció por los foros: si no puede sorprender con brillanteces, desconcierta con gilipolleces...

[__cadetill]

sacado de Trucomanía (ver truco 515)

procedure TForm1.Button1Click(Sender: TObject);
  function cuantosbytes(archivo: string): string;
  var
    FHandle: integer;
  begin
    FHandle := FileOpen(archivo, 0);
    try
      Result := floattostr(getfilesize(FHandle,nil));
    finally
      FileClose(FHandle);
    end;
  end;
begin
  Caption:=cuantosbytes('Mi_Archivo');
end;

[roman]

Empezado por DarkByte

¿Cerrar el programa que está usando archivo

Creo que este no es el punto. Me parece que el error es que el archivo del cual intenta obtener el tamaño está siendo usado por otra aplicación. Fuera de estas circunstancias es pefectamente normal abrir el archivo para ver sus propiedades y luego cerrarlo.

Creo que incluso el método de cadetill dará problemas si el archivo ya se encuentra abierto en modo exclusivo.

// Saludos

[__cadetill]

Empezado por roman

Creo que incluso el método de cadetill dará problemas si el archivo ya se encuentra abierto en modo exclusivo.

En modo exclusivo no lo he probado, pero abierto sí que lo tenía en el momento de la prueba