Create Shortcuts to Files using VBA in Excel

[tomlancaster]

Hello, I am trying to cut down on emailing large file attachments to other people by creating shortcuts to source documents and attaching the shortcuts instead.

Not everyone in our department is IT literate so I want to make an Excel workbook, where someone can browse for a file, select it and then it automatically creates a shortcut in a specified folder. And then they can attach the shortcut to new emails.

I have the following code so far to select the file and store it as fLdr variable.

Sub X_Drive()
Dim fLdr As String, Fil As String, FPath As String
Dim PathIs As String
With Application.FileDialog(msoFileDialogFilePicker)
.Show
fLdr = .SelectedItems(1)
End With
End Sub

Does anyone know some VBA code which creates a shortcut to a specific folder (say on "\\ServerPath\Shortcut icons") from the Selected Item?

Thanks,
Tom

[romperstomper]

See for example this page.