how to create desktop shortcuts for word in windows NT

[Jacksnmr]

Hi
Please help me to do the above its driving me nuts.
Thanks
Paul

 

[AA2e72E]

Try this:

sub sc()
set shell = createobject("WScript.Shell")
desktoppath = shell.specialfolders("Desktop")
set link = shell.createshortcut(desktoppath & "\WORD.lnk")
link.arguments=""
link.description = "Microsoft Word"
link.targetpath="C:\Program Files\Microsoft Office\Office\WINWORD.EXE"
link.save
set shell = nothing
set link = nothing
end sub

NOTE:
link.arguments=you can specify the name of an exixting DOC file
link.targetpath=may vary on your PC