>Can you send me a sample ??
>
>Silvio

This is my modified version not using 579 but 0x204 querying file size from there :

lcTemp = sys(2015)
lcOutFileName = 'blahblah.ext'
copy fields myGeneral to (lcTemp) next 1

Hin = fopen(lcTemp+".fpt")
hout=fcreate(lcOutFileName)
lnSize=fseek(hin,0,2)
fseek(hin,0x204,0) && Move file pointer to offset 0x204 where file size is stored
lnSize = 0
for ix=4 to 1 step -1
	lnSize=lnSize+asc(fread(hin,1))*256^(ix-1)
endfor
fwrite(hout,fread(hin,lnSize),lnSize)
=fclose(hin) and fclose(hout)
erase (lcTemp+'.*')

Cetin