Ken,

In this case you're dealing with relatively small files (<16MB). This would not work for files > 16MB. Yesterday I appended from 382MB file.

>Whoops! That should have been:
>

>* ThisForm.GetFSize() Method"
>
>	Parameter cFileName
>
>	nBarMax 	  = thisform.pageframe1.pgUpdate.cntStatus.width -2
>	Thisform.nBarIncr = <b>nBarMax / </b>occurs(chr(13),filetostr(cFileName))
>	&& Calc and store increment value
>	Return .t.
>