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
|