>lcFileName = "Your menu file with path" >lcProjName = SYS(2015) + ".pjx" >CREATE PROJECT (lcProjName) NOWAIT SAVE NOSHOW NOPROJECTHOOK >_VFP.ActiveProject.Files.Add(lcFileName) >USE (lcProjName) ALIAS gkkmnucompile AGAIN IN 0 >SELECT gkkmnucompile >GOTO RECORD 2 >REPLACE gkkmnucompile.outfile WITH lcFileName + CHR(0) >USE >DO (_GENMENU) WITH lcProjName,2 >_VFP.ActiveProject.Close() >DELETE FILE (lcProjName) >lcProjName = FORCEEXT(lcProjName,"pjt") >DELETE FILE (lcProjName) >Thanks for sharing this, Greg!