Object: | frmbehindsc |
LPARAMETERS tnOutFileHandle, tcFileName LOCAL lnFileHandle tcFileName = "PROGS\" + tcFileName lnFileHandle = FOPEN(tcFileName) IF lnFileHandle = -1 =FPUTS(tnOutFileHandle,ERR_FOPEN_LOC + tcFileName) &&"Could not open: " RETURN ENDIF DO WHILE !FEOF(lnFileHandle) =FPUTS(tnOutFileHandle, FGETS(lnFileHandle)) ENDDO =FCLOSE(lnFileHandle) RETURN