Set WshShell = CreateObject("WScript.Shell") strDesktopPath = WshShell.SpecialFolders("Desktop") Set objShortcutUrl = WshShell.CreateShortcut(strDesktopPath & "\Shortcut name goes here.lnk") objShortcutUrl.TargetPath = "Web link goes here" objShortcutUrl.IconLocation = "icon path goes here" objShortcutUrl.Save
x=msgbox("Your Text Here" ,0, "Your Title Here")
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)