SHORTCUT – Visual Basic – Fórum – Programujte.com

Zdarec, snažil jsem si ulehčit práci a zabrousil jsem do VBS, kdy jsem si udělal "instalačku" klienta našeho SW. Všechno v pohodě, až na vytvoření zástupců v nabídce start, zástupce na plochu dostanu bez problému. Můžete mi poradit v čem mám chybu?

Funkční vytvoření zástupců na ploše:

set WshShell = WScript.CreateObject("WScript.Shell" )
strDesktop = WshShell.SpecialFolders("AllUsersDesktop" )
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Billing Console.lnk" )
oShellLink.TargetPath = "C:\KronosNET2\BillingConsole.exe"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "C:\KronosNET2\BillingConsole.exe"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = "C:\KronosNET2\"
oShellLink.Save

Nefunkční zástupci v nabídce Start (Folder /NEXT!/KronosNET 2/ se vytvoří):

set WshShell = WScript.CreateObject("WScript.Shell" )
strStartMenu = WshShell.SpecialFolders("AllUsersStartmenu" )
set oShellLink = WshShell.CreateShortcut(strStartmenu & "\NEXT!\KronosNET 2\Billing Console.lnk" )
oShellLink.TargetPath = "C:\KronosNET2\DataEditConsole.exe"
oShellLink.WindowStyle = 1
oShellLink.IconLocation = "C:\KronosNET2\DataEditConsole.exe"
oShellLink.Description = "Shortcut Script"
oShellLink.WorkingDirectory = "C:\KronosNET2\"
oShellLink.Save

A není problém jenom v přístupových právech?

#2 liborb
Tak to by byl problém i u ikon na plochu, ne?