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]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: Seg 18 Dez 2017, 06:45