If is active, of course. :)
>*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")
> m.x=m.x+1
> ENDIF
>ENDFOR
>messagebox("prgs+ forms count="+trans(m.x))
>_VFP.ActiveProject.Files(1).Modify( )
>
>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
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.