MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  danilo451 em Sab 12 Nov 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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Dom 13 Nov 2016, 12:27

    Olá Danilo Almeida,
    Veja a Dica 28 do link abaixo:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

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

    Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 em Dom 13 Nov 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

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Dom 13 Nov 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

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

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

    Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 em Seg 14 Nov 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





    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 14 Nov 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

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

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

    Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 em Seg 14 Nov 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.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 14 Nov 2016, 13:51

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

      Data/hora atual: Sab 03 Dez 2016, 15:38