MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Artur Monho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 08/03/2017

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

    Mensagem  Artur Monho 29/4/2019, 18:19

    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
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

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

    Mensagem  Silvio 29/4/2019, 18:51

    Boa tarde....adapte as necessidades.

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Artur Monho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 08/03/2017

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

    Mensagem  Artur Monho 29/4/2019, 19:26

    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 ?
    Silvio
    Silvio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4754
    Registrado : 20/04/2011

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

    Mensagem  Silvio 29/4/2019, 19:49

    Experimente

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Artur Monho
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7
    Registrado : 08/03/2017

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

    Mensagem  Artur Monho 22/5/2019, 18:53

    Resolvido

      Data/hora atual: 29/7/2021, 01:10