Create a shortcut to a folder with VBA

[Otto Moehrbach]

Excel XP & Win XP
I found some code in the site below that creates a desktop shortcut to the
active file. It works well. But what I want to do is place, on the
desktop, a shortcut to a folder, not to a file. Can anyone help me to
modify this code, or create new code to create a shortcut to a folder and
place the shortcut on the desktop? Thanks for your time. Otto

http://www.vba-programmer.com/Snippets/Code_VB/Shortcut_Creation.html

 

[Guest]

Dir you try changing

lsPath = Application.Path & "\" & Application.Name'

to

lsPath = "C:\Myfolder\MySubFolder"

 

[Otto Moehrbach]

Thanks Tom. I'll try it in the morning. Otto

Dir you try changing

lsPath = Application.Path & "\" & Application.Name'

to

lsPath = "C:\Myfolder\MySubFolder"

 

[Otto Moehrbach]

That worked great. Thanks again. Otto

Dir you try changing

lsPath = Application.Path & "\" & Application.Name'

to

lsPath = "C:\Myfolder\MySubFolder"