LOCAL i, gnErrFile, pnSize, lnSeconds lnSeconds = SECONDS() FOR i=1 TO 1000 STRTOFILE( 'Error information to be written here' + CHR(13) + CHR(10),'errors1.txt', .t.) NEXT =MESSAGEBOX(SECONDS() - m.lnSeconds) lnSeconds = SECONDS() FOR i=1 TO 1000 IF FILE('errors.txt') && Does file exist? gnErrFile = FOPEN('errors.txt',12) && If so, open read/write pnSize = FSEEK(gnErrFile,0,2) ELSE gnErrFile = FCREATE('errors.txt') && If not create it ENDIF IF gnErrFile < 0 && Check for error opening file WAIT 'Cannot open or create output file' WINDOW NOWAIT ELSE && If no error, write to file =FWRITE(gnErrFile , 'Error information to be written here') ENDIF =FCLOSE(gnErrFile ) && Close file NEXT =MESSAGEBOX(SECONDS() - m.lnSeconds)Second loop takes longer.