[Resolvido]Abrir pasta - não funciona com Windows 10

Olá a todos,

Tenho este código para abrir uma pasta a partir de um formulário:

Código:

Shell "C:\WINDOWS\explorer.exe """ & strOpenFolder & "", vbNormalFocus

Quando uso num pc com Windows 10, abre uma janela do explorador do windows mas não na pasta correcta. Já tentei outros métodos e quando vou usar em w10 não consigo.

Alguém me pode ajudar?

Obrigado,

Artur

Boa tarde....adapte as necessidades.

Dim sPath as String
sPath = "C: \ Arquivos de Programas \ Microsoft Games"
Shell "C: \ WINDOWS \ explorer.exe" "" & sPath & "" , vbNormalFocus

Olá Sílvio,

A diferença entre o código que eu uso e o que você colocou está nos espaços e que geram erro.

Código:

Shell "C:\WINDOWS\explorer.exe """ & strOpenFolder & "", vbNormalFocus
Shell "C: \ WINDOWS \ explorer.exe" "" & sPath & "" , vbNormalFocus

O código só não funciona com o Windows 10; abre a janela mas na pasta Documentos e não na variável que envio.

Alguma ideia ?

Experimente

Shell "C: \ WINDOWS \ explorer.exe\suapastaaqui" , vbNormalFocus

Resolvido