‎Dec 19, 2011 07:28 AM
‎Dec 20, 2011 04:22 AM
InstPath = "path:/to/file/in/network/location"
Set Shell = CreateObject("WScript.Shell")
Set FSO = CreateObject ("Scripting.FileSystemObject")
StartMenue=Shell.SpecialFolders("AllUsersPrograms") & "\TEST"
If FSO.FolderExists(StartMenue) Then call FSO.DeleteFolder(StartMenue)
If Not FSO.FolderExists(StartMenue) Then Call FSO.CreateFolder(StartMenue)
Set link = Shell.CreateShortcut(Shell.SpecialFolders("AllUsersPrograms") & "\TEST\TEST.lnk")
link.Description = "TEST"
link.IconLocation = InstPath & "\TEST.exe"
link.TargetPath = InstPath & "\TEST.exe"
link.WorkingDirectory = InstPath
link.Save
‎Dec 29, 2011 02:37 AM
‎Jan 02, 2012 02:34 AM