* ThisForm.GetFSize() Method" Parameter cFileName nBarMax = thisform.pageframe1.pgUpdate.cntStatus.width -2 Thisform.nBarIncr = occurs(chr(13),filetostr(cFileName)) && Calc and store increment value Return .t.>Thanks, Ken. I like this idea. The only little problem with this approach, what it assumes fixed record lenght of the file. If File is comma-delimited (as it was in my case), records have different length.