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 |
|
|
|