Thanks for posting Jim,

Running this code gives me this error message:

OLE error code 0x8002801d: Library not registered.

at this line of code:
_VFP.ACTIVEPROJECT.FILES.ADD('testxx.prg')





>Something else must be going on. This works fine for me:
>
>

>erase testxx.pj?
>CREATE PROJECT testxx nowait
>TEXT TO lcText NOSHOW
>	do testxx2.prg
>	MESSAGEBOX('test')
>endtext
>DELETE FILE testxx.prg
>DELETE FILE testxx2.prg
>StrToFile('x = 1','testxx2.prg',0)
>?STRTOFILE(lcText,'testxx.prg',0)
>_vfp.ActiveProject.files.add('testxx.prg')
>_vfp.ActiveProject.files.add('testxx2.prg')
>_vfp.ActiveProject.close
>clear all
>modify project testxx nowait
>with _vfp.ActiveProject
>	for each oFile in _vfp.ActiveProject.Files
>		cDir=JustPath(ofile.name)
>	endfor
>endwith
>_vfp.ActiveProject.close
>return
>

>
>Can you try this code?