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


2 participantes

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog

    avatar
    danilo451
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 19/04/2016

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty [Resolvido]Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 12/11/2016, 16:38

    Boa Tarde,
    Estou com uma duvida,
    Preciso criar um botão que abre um fileDialog do windows
    para onde que possa instalar um aplicativo qualquer

    Tenho o seguinte código

    Dim f As Object
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = True
    f.Show

    Ele funciona localiza quer arquivo mas quando clico em abrir não acontece nada
    Acredito que esta faltando algo

    Grato
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty Re: [Resolvido]Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  Alvaro Teixeira 13/11/2016, 12:27

    Olá Danilo Almeida,
    Veja a Dica 28 do link abaixo:
    https://www.maximoaccess.com/t18227-100-dicas-usandoaccess-atualizado-em-17-10-2016
    Abraço
    avatar
    danilo451
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 19/04/2016

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 13/11/2016, 16:02

    Ola muito obrigado por responder ahteixeira

    Mas o que estou precisando é a seguinte forma

    Tenho um botão em um formulário onde que ao clicar neste botão
    abre a janela do windows que no qual seria fileDialog e com isso eu procure um aplicativo
    por exemplo VPN.exe e ao escolher tal aplicativo eu instale o mesmo no computador
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty Re: [Resolvido]Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  Alvaro Teixeira 13/11/2016, 20:27

    Olá, a parte de encontrar o ficheiro ja tem.
    Será executar o ficheiro escolhido.
    Se a dica não se aplica, pesquise aqui no forum por Shell.
    Estou no celular.
    Abraço
    avatar
    danilo451
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 19/04/2016

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 14/11/2016, 03:40

    Boa noite

    O comando Shell eu ja sabia
    resolvi desta forma
    Shell "explorer /n , c:\", vbNormalFocus

    porem logico gostaria com a função FileDialog

    Por exemplo:
    Dim f As Object
    Set f = Application.FileDialog(msoFileDialogFilePicker)
    Dim varFile As Variant
    Dim RetVal

    f.Show
    With f
    .AllowMultiSelect = False
    For Each varFile In .SelectedItems
    MsgBox varFile
    Next varFile 'como essa variável mostra o caminho do arquivo

    End With
    'Call Shell("varFile", 1) 'E o comando Shell executa arquivos eplo caminho resolvi colocar a variavel aqui, mas não deu certo Sad

    Claro se tiver outra ideia ficarei grato assim aprendo mais




    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty Re: [Resolvido]Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  Alvaro Teixeira 14/11/2016, 10:06

    Olá, veja se é isso que pretende:

    Código:
        Dim f As Object
        Set f = Application.FileDialog(msoFileDialogFilePicker)
        Dim varFile As Variant
        Dim RetVal
        Dim strExe
       
        f.Show
        With f
            .AllowMultiSelect = False
            For Each varFile In .SelectedItems
            strExe = varFile
            Next varFile
        End With
       
        'Metodo 1 (pede confirmação, teoricamente mais seguro)
        'Application.FollowHyperlink strExe
       
        'Metodo 2 (chama direto)
        Call Shell(strExe, 1)

    Abraço
    avatar
    danilo451
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 19/04/2016

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 14/11/2016, 13:17

    Cara Amigo ahteixeira

    Muito obrigado ficou do jeito que gostaria

    Sucesso para vocês e a todos do Site

    Tópico resolvido com sucesso.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty Re: [Resolvido]Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  Alvaro Teixeira 14/11/2016, 13:51

    Olá Danilo Almeida, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Abraço

    Conteúdo patrocinado


    [Resolvido]Botão para instalar aplicativo qualquer com FileDialog Empty Re: [Resolvido]Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:35