FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Tamaño de archivo
Utilizo este código para obtener el tamaño de un archivo en bytes
Function TMainForm.byte(archivo:string):LongInt; Var Fichero: File; Tamanyo: LongInt; Begin AssignFile(Fichero,archivo); Reset(Fichero,1); Tamanyo := FileSize(Fichero); CloseFile(Fichero); Result := Tamanyo; end; perso sucede que al estar en uso me da un error: Acceso denegado. alguna idea desde ya mil gracias |
#2
|
||||
|
||||
¿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...
__________________
:) |
#3
|
|||
|
|||
sacado de Trucomanía (ver truco 515)
Código:
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; |
#4
|
||||
|
||||
Cita:
Creo que incluso el método de cadetill dará problemas si el archivo ya se encuentra abierto en modo exclusivo. // Saludos |
#5
|
|||
|
|||
Cita:
|
|
|
|