Comando DIRCHANGE

[negrao]

Pessoal, estou com o seguinte problema.
Tenho uma pasta chamada Sistema, dentro dessa pasta tenho 3 subpastas
Dados
Dados01
Dados02

A rotina abaixo funcionou perfeitamente no windows 98, mas no Xp to tendo problemas.
O que esta acontecendo é o seguinte.
Qndo executo => nomedoprograma 02 esta dando a mensagem
"Base de Dados da Empresa n„o Encontrada", mas a base existe e no windows 98 funciona


A rotina é essa

LOCAL CDIR := DIRNAME()
//==> VERIFICA SE EXISTE A EMPRESA
//=> A variavel Firma eu passo no executavel
IF (FIRMA == NIL .OR. FIRMA == "00")
CODEPAR := "00"
NBASE := ".\DADOS\"
ELSE
CODEPAR := FIRMA
NBASE := ".\DADOS"+codepar+"\"
ENDIF

//==> VERIFICA SE EXISTE A BASE DADOS DA EMPRESA
IF DIRCHANGE(NBASE)<>0
avisa3("Base de Dados da Empresa n„o Encontrada")
CLS
QUIT
ENDIF
DIRCHANGE(CDIR)


Obrigado por qualquer ajuda.