#######################################
# FILE Files.

File.leggi = function (nome,dir='')
{if (Tr.pos('/$',dir)>0) sep=''
else if (dir!='') sep='/' else sep=''
nome=paste(dir,nome,sep=sep)
n=file.info(nome)$size;
readChar(nome,n)}