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]Capturar destino de um atalho

    Compartilhe

    mbflpa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 25/01/2011

    [Resolvido]Capturar destino de um atalho

    Mensagem  mbflpa em Qua 23 Set 2015, 12:22

    Olá pessoal!

    Necessito de uma ajuda para o seguinte: tenho um aplicativo que possui uma rotina que cria atalhos e armazena-os em pastas. Acontece que eu queria criar uma rotina que capturasse os destinos destes atalhos para fazer o download dos arquivos ao invés de abri-los.

    Alguém sabe como posso capturar com vba o destino de um determinado atalho criado?

    mbflpa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 25/01/2011

    Re: [Resolvido]Capturar destino de um atalho

    Mensagem  mbflpa em Qua 23 Set 2015, 12:54

    Já encontrei:
    Public Function GetShortcutTarget(strShortcut As String) As String
    Dim objShell As Object, objLink As Object
    On Error GoTo ErrHandler

    Set objShell = CreateObject("WScript.Shell")
    Set objLink = objShell.CreateShortcut(strShortcut)
    GetShortcutTarget = objLink.TargetPath

    ExitHandler:
    On Error Resume Next
    Set objLink = Nothing
    Set objShell = Nothing
    Exit Function

    ErrHandler:
    MsgBox Err.Description, vbExclamation
    Resume ExitHandler
    End Function

      Data/hora atual: Qui 08 Dez 2016, 23:57