MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4389
    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 em 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 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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4389
    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 em 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 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 em 22/5/2019, 18:53

    Resolvido

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/7/2019, 17:10