Difference between revisions of "Create a shortcut"
From HashVB
(Code sample) |
(No difference)
|
Revision as of 22:37, 5 December 2005
Public Sub CreateShortcut(Destination As String, Name As String, _ Target As String, Parameters As String) Dim Shell As Object 'WshShell Dim NewShortcut As Object 'WshShortcut Set Shell = CreateObject("wscript.shell.1") Set NewShortcut = Shell.CreateShortcut(Destination & Name & ".lnk") NewShortcut.TargetPath = Target NewShortcut.Arguments = Parameters NewShortcut.Save End Sub