Desktop Shorcuts

[Guest]

Is there a way that I can (via VBA) create a shortcut to a spreadsheet or
folder on the desktop.
(Example: My application (wizard) has data for the user to fill out. When
he/she presses finish, the wizard fills out the form, creates a folder and
saves the form into that folder. The user then would like the wizard to
create a desktop shortcut to that folder so that he/she can work with the
files at a later time (Engineering Maintenence).

 

[Jim Rech]

Here's an example:

Sub MakeDesktopShortcut()
Dim wsh As Object
Dim SC As Object
Dim DesktopPath As String
Set wsh = CreateObject("WScript.Shell")
DesktopPath = wsh.SpecialFolders.Item("Desktop")
Set SC = wsh.CreateShortcut(DesktopPath & "\test.lnk")
SC.TargetPath = "C:\book1.xls"
SC.Hotkey = "CTRL+ALT+Z"
SC.Save
Set wsh = Nothing
End Sub

--
Jim Rech
Excel MVP
| Is there a way that I can (via VBA) create a shortcut to a spreadsheet or
| folder on the desktop.
| (Example: My application (wizard) has data for the user to fill out. When
| he/she presses finish, the wizard fills out the form, creates a folder and
| saves the form into that folder. The user then would like the wizard to
| create a desktop shortcut to that folder so that he/she can work with the
| files at a later time (Engineering Maintenence).

 

[FastOneBaz]

ahhhhh amaaazing,... that was just what I needed to deliver a project t
a client.

thanks loads!