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]Botão para instalar aplicativo qualquer com FileDialog

    Compartilhe

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  danilo451 em Sab 12 Nov 2016, 14: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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Dom 13 Nov 2016, 10: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 : 18
    Registrado : 18/04/2016

    Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 em Dom 13 Nov 2016, 14: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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Dom 13 Nov 2016, 18: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 : 18
    Registrado : 18/04/2016

    Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 em Seg 14 Nov 2016, 01: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




    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 14 Nov 2016, 08: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 : 18
    Registrado : 18/04/2016

    Botão para instalar aplicativo qualquer com FileDialog

    Mensagem  danilo451 em Seg 14 Nov 2016, 11: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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 14 Nov 2016, 11:51

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

      Data/hora atual: Sab 24 Jun 2017, 10:43