I copied your code below into a .prg file. But when I run it in the .prg file I get message "property ActiveProject not found". What am I missing?
Thank you for your help. And I don't mind regarding your PS question. (too bad I won't see the answer in print as I don't subscribe to the magazine)
>
>Try using some code like this. With the project open:
>
>
>FOR EACH oFile in _VFP.ActiveProject
> IF oFile.Type = "K"
> USE (oFile.Name) ALIAS __FORM
> SCAN FOR __FORM.Class = m.cSpecifiedClass
> * Do something
> ENDSCAN
>
> USE IN (__FORM)
> ENDIF
>ENDFOR
>
>
>Tamar
>
>P.S. Do you mind if I use this question and your name for the Advisor Answers column?
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham