O Geraldo contestou.

Só um par de comentarios:

1) usa uma < pre > codigo aqui < /pre >
(sem os espaços) para o formato do código nestes messagens

2)

>IF FILE(HOME()+"\VFP.EXE") OR FILE(HOME()+"\VFP6.EXE")
>   infox=.T.
>ELSE
>   infox=.F.
>ENDIF

Vc pode usar a função VERSION() para setar o infox. Veja so:

IF VERSION(2) = 0
   infox=.T.
ELSE
   infox=.F.
ENDIF