Glad to help.

>James
>Sorry, I miss spelled the variable and assumed I did not have a project property defined because of the error I got. Your code wrks great, it solved my problem
>
>Thanks
>
>>Chuck
>>
>>This is what I do. I change the dir in foxpro to the project home dir.
>>
>>

>>IF TYPE("_vfp.ActiveProject.name")<> "U"
>>	lcHomeDir = _vfp.ActiveProject.HomeDir
>>	CD (lcHomeDir)
>>	_screen.Caption = "Microsoft Visual Foxpro " +_vfp.ActiveProject.name
>>ENDIF 	
>>
>>

>>
>>>I could use some help with creating a projecthook that will set the default path and set path to default folders.
>>>I am currently using the following code but I cannot catch the directory the project is opened from. Variables come in empty.
>>>
>>>

>>>DEFINE CLASS projectpath AS projecthook
>>>
>>>	Height = 22
>>>	Width = 23
>>>	Name = "projectpath"
>>>
>>>	PROCEDURE Destroy
>>>		set default to "O:\"
>>>		set path to
>>>	ENDPROC
>>>
>>>	PROCEDURE Init
>>>		local lcDir,lcProjDir
>>>		lcDir = allt(sys(5)+curdir())
>>>		lcProjDir = allt(substr(curdir(),1,at('\',curdir(),2)-1))
>>>		set default to &lcDir
>>>		set path to "class,data,forms,icons,reports,help,prog,o:\"+lcProjDir+"\source\a blank oapp\class"
>>>	ENDPROC
>>>ENDDEFINE
>>>