none
Atalhos para todos os itens mapeados em Meu Computador RRS feed

  • Pergunta

  • Amigos necessitamos criar atalhos para todos os itens mapeados em Meu Computador no desktop de nossos usuários quando os mesmos logan.

    Ex. Drive H , Drive I, Drive J, etc

    Desde já agradeço a ajuda de todos


    Helio Jr.
    quinta-feira, 2 de junho de 2011 20:09

Respostas

  • Veja um exemplo simplificado:

    Option Explicit
    Dim objShell, objDesktop, objLink
    Dim strAppPath, strWorkDir, strIconPath
    
    strWorkDir ="H:\"
    strAppPath = "H:\"
    
    Set objShell = CreateObject("WScript.Shell")
    objDesktop = objShell.SpecialFolders("Desktop")
    Set objLink = objShell.CreateShortcut(objDesktop & "\Drive H.lnk")
    
    objLink.TargetPath = strAppPath
    objLink.WorkingDirectory = strWorkDir
    objLink.Save
    

     

    Referência: http://www.computerperformance.co.uk/ezine/ezine119.htm


    Fábio de Paula Junior
    quinta-feira, 2 de junho de 2011 22:42
    Moderador