PC Toledo

Caros Irmãos em Clipper.

O assunto já é manjado mas não estou conseguindo fazer o que quero.

Desejo o seguinte:
c\Romario\ -> onde ficam os executáveis e arquivos dbfs/ntx comuns a todas as empresas.
c\Romario\emp01-> onde ficam os arquivos dbf/ntx particular de cada empresa.

Estou fazendo assim:

Public Rota
Rota:=space(15)
Num:=space(02)
@ 10,10 get Num valid Eval({||Num:=Strzero(Val(Num),2).T.})
read
...
If !File ((Rota)+"TbXXX.dbf")
CrXXX()
Endif
Use ((Rota)+"TbXXX.DBF") alias XXX NEW
Set index to .......??????????? (aqui que tá pegando) não sei como fazer para acessar os indices na pasta da empresa)
Como fazer ??, como voces fazem

Static Function CrXXX()
---------------------------
Local Estrut{{"Cod","c",02,0}.;
.......
........
demais campos
}}
DBcreate((Rota)+"TbXXX. Estrut)
Close Databases
Use ((Rota)+"TbXXX.dbf")
Index on Field->Cod to ((Rota)+"CodInd1.NTX")
Close Databases
Return(NIL)

Abraços

Romario

Eu uso assim

Set Index To (Rota)+'CodInd1.NTX'

Daniel escreveu:Eu uso assim

Set Index To (Rota)+'CodInd1.NTX'

Se não funcionar como o colega falou, tente o seguinte modo: