Make a shortcut to a file - code

[Jim]

I want to make a shortcut to a file and place it in another folder. The name
of the file will be something like "shortcut to myfile.xls"

 

[Ron de Bruin]

Hi Jim

This example will place a shortcut to the activeworkbook on the desktop
Change DesktopPath to your folder


Sub Desktopshortcut()
Dim WSHShell As Object
Dim MyShortcut As Object
Dim DesktopPath As String
Set WSHShell = CreateObject("WScript.Shell")
DesktopPath = WSHShell.SpecialFolders("Desktop")
Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\" & _
ActiveWorkbook.Name & ".lnk")
With MyShortcut
.TargetPath = ActiveWorkbook.FullName
.Save
End With
Set WSHShell = Nothing
MsgBox "A shortcut has been placed on your desktop."
End Sub

 

[Tom Ogilvy]

If you don't get a better answer, look at this:

http://support.microsoft.com/kb/242297/en-us
HOWTO: Use Windows Script Host to Create Shortcut with Parameters

 

[Jim]

Thanks, got this to work. Didnt origionally plan on making the active
workbook the file for the source but it actually turned out to work better.
thanks again everyone.

 

[Jim]

ok, part 2: what if I want the code to create a shortcut to a folder? I cant
use the active workbook name, SO, would i just set the target path =
c:\thepathIWant??? And would the extention still be .ink for MyShortcut?

=====================================================