Hi
*the project must be opened and active:

MODIFY PROJECT ? NOSHOW NOWAIT 
m.x=0
FOR EACH oFile IN _VFP.ACTIVEPROJECT.FILES
   IF INLIST(oFile.Type, "P", "K")  && prg & forms
      m.x=m.x+1
   ENDIF
ENDFOR
messagebox("prgs+ forms count="+trans(m.x))
_VFP.ActiveProject.Files(1).Modify( )   &&modify the first file in collection

this works on my vfp9SP2 [Visual FoxPro 09.00.0000.7423 pour Windows]

for more on this subject you can read in my blog:
http://yousfi.over-blog.com/2015/12/working-with-vfp-project-as-object.html