What is wrong with this routine which creates a desktop shortcut to a
file:
Dim FSO, F1
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F1 = FSO.GetFile("Blessings.vbs")
Dim ScriptPath
ScriptPath = F1.Path
Set objShell = CreateObject("Wscript.Shell")
strDesktop = objShell.SpecialFolders("Desktop")
Set objShortcut = objShell.CreateShortcut(strDesktop & "\Blessings.lnk")
objShortcut.TargetPath = ScriptPath
objShortcut.Description = "description goes here"
L = Len(ScriptBase)
ScriptBase = Mid(ScriptBase, 1, L-13)
objShortcut.WorkingDirectory = ScriptBase
objShortcut.Run = Maximized
objShortcut.Save
Suggestions appreciated.
Jeff Weiss
