LOCAL loProject, ; loEx AS Exception, ; loFile, ; lcSCCText lcSCCText = HOME(0) + "SCCText.PRG" IF !FILE(lcSCCText) MESSAGEBOX("Unable to file " + HOME(0) + "SCCText.PRG", 16, "Error") ENDIF TRY loProject = _vfp.ActiveProject CATCH TO loEx ENDTRY IF TYPE("loEx") = "O" MESSAGEBOX("There are no active projects", 64, "Error") RETURN ENDIF FOR EACH loFile IN loProject.Files ? "Generating: " + loFile.Name IF INLIST(loFile.Type, "V", "K", "R") && VCX/SCX/FRX DO (lcSCCText) WITH loFile.Name ENDIF ENDFOR