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


    [Resolvido]Capturar destino de um atalho

    avatar
    mbflpa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Capturar destino de um atalho Empty [Resolvido]Capturar destino de um atalho

    Mensagem  mbflpa 23/9/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?
    avatar
    mbflpa
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Capturar destino de um atalho Empty Re: [Resolvido]Capturar destino de um atalho

    Mensagem  mbflpa 23/9/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: 12/11/2024, 20:32