1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
|
" codeBody "
Dim als IWshRuntimeLibrary.IWshShortcut
Schemerige WshShell als WshShellClass = Nieuwe WshShellClass
Schemerige allUsersDesktop als Koord = „AllUsersDesktop“
Schemerige shortcutPath als Koord = WshShell.SpecialFolders.Item (allUsersDesktop) .ToString
kortere weg = C (WshShell.CreateShortcut (shortcutPath & „\“ & shortcutName & „.lnk“), IWshRuntimeLibrary.IWshShortcut)
shortCut.TargetPath = targetFullpath
shortCut.WindowStyle = 1
shortCut.Description = shortcutName
shortCut.WorkingDirectory = workingDir
shortCut.IconLocation = iconFile & „,“ & iconNumber
shortCut.Save ()
|