como saber el tamaño de un fichero
 

hola loquillos,tengo un pequeño problema que necesito que me ayuden a resolver, estoy haciendo un copiador, y necesito saber el tamaño de los archivos, cosa que no puedo hacer ya que el tamaño de un archivo de 7gb en bytes es enorme y no tengo un tipo de variable que pueda soportar números tan grande, estuve probando con el long double pero cuando lo saco por el label lo que me sale es -1, no se si esto es problema de conversión o es que este tipo de dato no soporta números tan grande.
Yo creo que windows ya tiene almacenado en algún lugar el tamaño de cada archivo, conjuntamente con la fecha en que se creo y etc. me gustaría saber como puedo acceder a esa información. les agradecería mucho si me ayudaran lo mas rápido posible.

Esto me funciona con fichero de más de 3gb (el primero que he encontrado por mi disco):

Código Delphi [-]
var
  Size:Int64;
begin

  // Existe?
  if FileExists(edtFileSize1.Text) then begin
    Size := Self.GetFileSize(edtFileSize1.Text);
  end;

Y con este procedimiento puedes cambiarlo a diferentes unidades:

Código Delphi [-]
procedure TFormMain.ConvertFileSizes(Size:Int64; sizeKB:Double=0; sizeMB:Double=0);
begin

  // Bytes
  edtbytes.Text := IntToStr(Size) + '  b';

  // KB
  sizeKB := (Size / 1024);
  edtKB.Text := FloatToStrF(SizeKB, ffFixed, 18 ,2) + ' KB';

  // MB
  SizeMB := (Size / 1048576);
  edtMB.Text := FloatToStrF(SizeMB, ffFixed, 18 ,2) + ' MB';

  // GB
  edtGB.Text := FloatToStrF((Size / 1073741824), ffFixed, 18 ,2) + ' GB';
end;

tio, yo necesito ese mismo ejemplo pero en C++ bulider y pruevalo con un fichero de mas de 5 gb, porque lo que yo hice tambien funciona con ficheros de este tamaño pero no de mas de 5 gb. y yo necesito saber el tamaño de un fichero sin inportar su tamaño, como si este fuera de 40 gb.

Repasa este hilo, ya tratamos el tema ;).

Saludos.

Ok, en este caso hay que calcularlo "por partes"; Modifica el código y utiliza el siguiente:

Código Delphi [-]
var
  hdl: THandle;
  FileData: TWin32FindData;
  Size:int64;
begin
  // ini
  Size := 0;
  // Handle del fichero
  hdl := FindFirstFile(PChar(edtFileSize1.text), FileData);
  // Correcto?
  if (hdl <> INVALID_HANDLE_VALUE) then begin
    Windows.FindClose(hdl);
    Int64Rec(Size).Lo := FileData.nFileSizeLow;
    Int64Rec(Size).Hi := FileData.nFileSizeHigh;
  end;
  // Convertir
  ConvertFileSizes(Size);

Si lo pruebas ahora con un fichero de grande (en mi caso con uno de más de 7 gb) obtengo esto:

hola tio, acabo de probar tu codigo y me da error en Int64Rec(Size).Lo y Int64Rec(Size).Hi, el error dice; {DCC ERROR} Unit1.pas(41): E2018 Record, objet or class type required.

hola tio, acabo de probar tu codigo y me da error en Int64Rec(Size).Lo y Int64Rec(Size).Hi, el error dice; {DCC ERROR} Unit1.pas(41): E2018 Record, objet or class type required.

:eek: ¿Estamos hablando en C++ o en delphi? o me he equivocado de foro...:rolleyes::D

Saludos.

tu codigo yo lo probe en delphi 2010, y me dio error. que tu cres de esto.

Estamos hablando de C++.

Yo tenía código en Delphi y lo coloqué asumiendo que tal vez le serviría; Supongo que si no ha dicho nada es porque más o menos lo entiende o lo puede traducir.

El código lo he probado con D6 y D2009 y me funciona bien en ambos.
Te subo el proyecto.

gracias man

Dos funciones en C:


Saludos.

gracias men.