[Resolvido]codigo botão não reage

Olá Pessoal

Uso este codigo em um botão para abrir a pasta "ConsentimentosInformados" situado na mesma pasta do sistema

Call ShellExecute(0&, "open", CurrentProject.Path & "\ConsentimentosIinformados", "", "", 1)

Na minha maquina funciona levo pra maquina do cliente o botão fica sem ação

Como posso solucionar isso

Vanderlei

Vê aqui
https://www.maximoaccess.com/t9595-resolvidoabrir-uma-pasta-diretorio-escolher-arquivo-a-carregar-para-importacao
https://www.maximoaccess.com/t7535-resolvidoabrir-pasta-especifica-via-vba

Os topicos pedem para habilitar a referência do windows na minha maquina é 14.0 funciona normal, na maquina do cliente é 15.0 e o botão não funciona
Teria outra forma de abrir a pasta em questão ?

Access 2010 - windows 2010

Assim funciona em qualquer versão;

Teste e retorne por favor;

Código:

Dim Objshl As Object
Set Objshl = CreateObject("Shell.Application")
Objshl.ShellExecute CurrentProject.Path & "\ConsentimentosIinformados", , , "open", 1
Set Objshl = Nothing

valew pela atenção

Fico feliz.
Obrigado pelo retorno o forum agradece.

Boas Festas