FoxPro/Visual FoxPro - Ayuda con Treeview

Hola amigos:
Intento mostrar solo las subcarpetas en un Treeview pero me sale el siguiente error:
"OBJECT es un miembro desconocido", alguien sabe q esta mal.

u_ruta = '\Sistema\Empresa04\'
Miruta=sys(5)+u_ruta+'*.*'
Tdir= ADIR(Misd,Miruta,'D')
FOR Cd=1 TO Tdir
if Misd(Cd,5)='....D' AND Misd(Cd,1)#'.' AND Misd(Cd,1)#'..'
Thisform.Object.Nodes.Add(,,Misd(Cd,1),Misd(Cd,1))
endif
ENDFOR

This.object.LineStyle= 1
This.object.SingleSel= .t.
This.object.HotTracking= .t.
Thisform.Refresh

Gracias por la ayuda.

fijate que donde tenes definido este código estas referenciando al objeto OBJECT pero una referencia dice que esta en el FORM y otra que esta dentro del objeto en donde definiste este código.

Hola:

Intento mostrar solo las subcarpetas en un Treeview pero me sale el siguiente error:
"OBJECT es un miembro desconocido", alguien sabe q esta mal.

*** Evento: INIT del OleControl2***

u_ruta = '\Sistema\Empresa04\'
Miruta=sys(5)+u_ruta+'*.*'
Tdir= ADIR(Misd,Miruta,'D')
FOR Cd=1 TO Tdir
if Misd(Cd,5)='....D' AND Misd(Cd,1)#'.' AND Misd(Cd,1)#'..'
Thisform.Object.Nodes.Add(,,Misd(Cd,1),Misd(Cd,1))
endif
ENDFOR

This.object.LineStyle= 1
This.object.SingleSel= .t.
This.object.HotTracking= .t.
Thisform.Refresh

A ver si me ayudan.