Dim abkürzte als IWshRuntimeLibrary.IWshShortcut e
Schwaches WshShell als WshShellClass = neues WshShellClass
Schwaches allUsersDesktop als Schnur = „AllUsersDesktop“
Schwaches shortcutPath als Schnur = WshShell.SpecialFolders.Item (allUsersDesktop) .ToString
Abkürzung = C (WshShell.CreateShortcut (shortcutPath u. „\“ u. shortcutName u. „.lnk“), IWshRuntimeLibrary.IWshShortcut)
shortCut.TargetPath = targetFullpath
shortCut.WindowStyle = 1
shortCut.Description = shortcutName
shortCut.WorkingDirectory = workingDir
shortCut.IconLocation = iconFile u. „,“ u. iconNumber
shortCut.Save ()
|