TriCountyIT
asked on
How do I delete a shortcut using a vbs script?
I created a script tha that makes a shortcut and assigns it an icon. I need to remove that icon from the desktop. How would I alter my script so it deletes it? Here is my code. Thanks
'fORCE EXPLICIT VARIABLE DECLARATION
option explicit
'STEP OVER ERRORS FOR CUSTOM ERROR REPORTING
on error resume next
'DECLARE VARIABLES
dim shell, desktopPath, link, sys32Path
'INSTANTIATE THE WINDOWS SCRIPT HOST SHELL OBJECT
Set shell = WScript.CreateObject("WScr ipt.shell" )
'SET THE PATH TO THE WINDOWS DESKTOP FOLDER & MY DOCUMENTS FOLDER
desktopPath = shell.SpecialFolders("Desk top")
sys32Path = "http://epic1ctx/citrix/tricounty"
'CREATE A SHORTCUT ON THE USER'S DESKTOP
Set link = shell.CreateShortcut(deskt opPath & "\TriCounty Citrix.lnk")
'SET THE PROPERTIES FOR THE SHORTCUT
link.Description = "My Shortcut"
link.TargetPath = sys32Path
link.WindowStyle = 0
link.WorkingDirectory = desktopPath
link.IconLocation = "\\tch16\IT\ShortcutIcons\ epic.ico"
link.Save
'CLEANUP OBJECTS
set shell = nothing
'fORCE EXPLICIT VARIABLE DECLARATION
option explicit
'STEP OVER ERRORS FOR CUSTOM ERROR REPORTING
on error resume next
'DECLARE VARIABLES
dim shell, desktopPath, link, sys32Path
'INSTANTIATE THE WINDOWS SCRIPT HOST SHELL OBJECT
Set shell = WScript.CreateObject("WScr
'SET THE PATH TO THE WINDOWS DESKTOP FOLDER & MY DOCUMENTS FOLDER
desktopPath = shell.SpecialFolders("Desk
sys32Path = "http://epic1ctx/citrix/tricounty"
'CREATE A SHORTCUT ON THE USER'S DESKTOP
Set link = shell.CreateShortcut(deskt
'SET THE PROPERTIES FOR THE SHORTCUT
link.Description = "My Shortcut"
link.TargetPath = sys32Path
link.WindowStyle = 0
link.WorkingDirectory = desktopPath
link.IconLocation = "\\tch16\IT\ShortcutIcons\
link.Save
'CLEANUP OBJECTS
set shell = nothing
ASKER
Hmm...ran the script, but it didnt delete the link. It never errored out it just didnt do anything.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Ahh there she went. Thanks a lot!
ASKER
For some reason it does not give me the accept as solution option under your name.??
Ah my fault ... something is wrong and it defaults to admin comments and I haven't got my hed properly together.
I've asked for the correction to be applied
Chris
I've asked for the correction to be applied
Chris
ASKER
Sounds good. Ill check back and give them to you when I can. Thanks again.
Glad to help, and sorry for being such a klutz, (it's an issue with being a cleanup volunteer - compounded by lack of attention!).
Chris
Chris
set fso = createobject("scripting.fi
if fso.fileexists(desktopPath
fso.deletefile desktopPath & "\TriCounty Citrix.lnk"
Chris