Início / computer / Perguntas / 1699096
Accepted
acgbox
Asked: 2022-01-14 09:43:34 +0800 CST

como enviar atalho para área de trabalho pública, com vbs

  • 772

seguindo as instruções do ss64 eu criei um vbs para criar um atalho

minhatest.vbs

Set objShell = WScript.CreateObject("WScript.Shell")
   Set lnk = objShell.CreateShortcut("%HOMEDRIVE%\Users\Public\Desktop\test.lnk")
   
   lnk.TargetPath = "%HOMEDRIVE%\test\start.bat"
   lnk.Arguments = ""
   lnk.Description = "test"
   lnk.HotKey = "ALT+CTRL+F"
   lnk.IconLocation = "%HOMEDRIVE%\test\test.ico, 0"
   lnk.WindowStyle = "1"
   lnk.WorkingDirectory = "%HOMEDRIVE%\test\"
   lnk.Save
   'Clean up 
   Set lnk = Nothing

Fora

Error: Could not save shortcut
"c:\test\%HOMEDRIVE%\Users\Public\Desktop\test.ink"

Se eu alterar o caminho do atalho "%HOMEDRIVE%\Users\Public\Desktop\test.lnk"para apenas test.inko atalho é criado com sucesso dentro da testpasta

como posso criar o atalho no caminho "%HOMEDRIVE%\Users\Public\Desktop\test.lnk"?

windows shortcuts

1 respostas

  1. Best Answer

    Resolvido. este é o código vbs correto

    Set objShell = CreateObject("Wscript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
Set objShortcut = objShell.CreateShortcut(strDesktop & "\test.lnk")
objShortcut.TargetPath = "%HOMEDRIVE%\test\start.bat"
objShortcut.Description = "Start test"
objShortcut.WorkingDirectory = strDesktop
objShortcut.IconLocation = "%HOMEDRIVE%\test\test.ico, 0"
objShortcut.Save

    Fonte: social.technet.microsoft.com

    • 0

relate perguntas