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]Qual o código para abrir uma pasta e executar um arquivo dela?

    Compartilhe
    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 17/04/2011

    [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Walter em Ter 25 Fev 2014, 00:01

    Boa noite, amigos.

    Na minha pasta do Dropbox tem uma pasta com arquivo que uso para pesquisar CID 10 (Código Internacional de Doenças). Esse é o link da Pasta:

    [Você precisa estar registrado e conectado para ver este link.]


    Gostaria de, através de um botão em meu formulario abrir o arquivo "pesqcid" que é .exe. Qual o código que devo usar no botão? Procurei no Forum e não consegui encontrar algo que me ajude.

    Tentei com o código:

    Private Sub Comando24_Click()
    Dim stAppName As String
    stAppName = "C:\Users\Walter\Desktop\CID 10\pesqcid"
    Call Shell(stAppName, 1)
    End Sub


    Mas aparece uma mensagem dizendo: "Arquivo cid10n4a.dic não encontrado". Mas o arquivo cid10n4a.dic está lá na pasta! E o aplicativo abre normalmente, se não for pelo botão do Access...

    O que pode estar acontecendo?
    Obrigado,

    Walter
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1673
    Registrado : 11/11/2009

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Dilson em Ter 25 Fev 2014, 14:13

    Olá Walter,

    Pesquise por shell

    Editado:
    Na busca rápida deu isso, veja:
    shell - [Resolvido]Comando Shell para abrir um arquivo excel ou outro comando?
    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 17/04/2011

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Walter em Seg 03 Mar 2014, 19:11

    Olá, Dilson.
    Boa tarde.
    Os exemplos que você enviou são para abrir arquivos Excel e Word. Não consegui adapta-los para a minha necessidade.

    Tem alguma outra sugestão?

    Já tentei vários códigos, como:

    1) Application.FollowHyperlink "C:\Users\Walter\Desktop\CID 10\pesqcid.exe"


    2) Dim wAplicativo As String
    Dim wArquivo As String
    wAplicativo = "C:\Users\Walter\Desktop\CID 10\pesqcid.exe"
    wArquivo = "c:\temp\carta.doc"
    Call Shell(wAplicativo & " " & Chr(34) & wArquivo & Chr(34), 1)

    3) Dim stAppName As String
    stAppName = "C:\Users\Walter\Desktop\CID 10\pesqcid"
    Call Shell(stAppName, 1)



    Um abraço

    Walter
    avatar
    Dilson
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1673
    Registrado : 11/11/2009

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Dilson em Qua 05 Mar 2014, 14:19

    Experimente assim dessa outra forma:

    Por exemplo, o F1 nos disponibiliza o seguinte exemplo em que podemos executar um programa:

    Private Sub SeuBotao_Click()
    ' Especificar 1 como o segundo argumento abre o aplicativo em
    ' tamanho normal e o coloca em foco.

    Dim RetVal
    RetVal = Shell("C:\Users\Walter\Desktop\CID 10\pesqcid.EXE", 1)   ' Executa o programa.
    End Sub
    avatar
    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3383
    Registrado : 04/04/2010

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Avelino Sampaio em Qua 05 Mar 2014, 14:45

    Olá!

    Outra opção é usar a API SHELL. Veja como neste tópico:

    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso!
    avatar
    Walter
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 292
    Registrado : 17/04/2011

    Re: [Resolvido]Qual o código para abrir uma pasta e executar um arquivo dela?

    Mensagem  Walter em Dom 09 Mar 2014, 09:45

    Obrigado Dilson.
    Obrigado Avelino.

    Nenhum desses códigos conseguiu abrir/executar o Arquivo. Deve ser a estrutura do mesmo que não permite...

    Não importa. Consegui resolver o problema de outra forma: Enchi-me de coragem, sentei numa cadeira confortável e pus a mão na massa!
    Achei um exemplo de formulário que busca palavras por parte enquanto se vai digitando.

    Funciona exatamente igual ao Arquivo que eu estava tentando abrir.
    Veja o mesmo nessa página:

    [Você precisa estar registrado e conectado para ver este link.]

    Fiz algumas adaptações, copiei os dados da Tabela e inseri nesse aplicativo e.... U-Lá-Lá!
    Ficou perfeito.

    Já o inclui no meu BD, sem problemas.

    Veja como ficou nesse anexo.

    Muito obrigado a todos e um abraço.

    Walter
    Anexos
    Localiza-CID.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (555 Kb) Baixado 21 vez(es)

      Data/hora atual: Sab 24 Jun 2017, 06:21