Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Creating a Desktop Shortcut using VBA 2
- Thread starter PBAPaul
- Start date
-
2
- #2
You may consider to use the Microsoft Scripting Runtime:
Set S = CreateObject("WScript.Shell")
DesktopPath = S.SpecialFolders("AllUsersDesktop") 'or "Desktop"
Set MyShortcut = S.CreateShortcut(DesktopPath & "\Name of link.lnk")
MyShortcut.TargetPath = "\path\to\target.ext"
MyShortcut.Arguments = "Command line arguments"
MyShortcut.WorkingDirectory = "\path\to\startdir"
MyShortcut.Save
Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884
Set S = CreateObject("WScript.Shell")
DesktopPath = S.SpecialFolders("AllUsersDesktop") 'or "Desktop"
Set MyShortcut = S.CreateShortcut(DesktopPath & "\Name of link.lnk")
MyShortcut.TargetPath = "\path\to\target.ext"
MyShortcut.Arguments = "Command line arguments"
MyShortcut.WorkingDirectory = "\path\to\startdir"
MyShortcut.Save
Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884
- Thread starter
- #3
- Status
Similar threads
- Question