Difference between revisions of "Create a shortcut"

From HashVB
Jump to: navigation, search
(Expanded article)
(test)
Line 7: Line 7:
 
   
 
   
 
   Set Shell = CreateObject("wscript.shell.1")
 
   Set Shell = CreateObject("wscript.shell.1")
   Set Shortcut = Shell.CreateShortcut(Path & Name & ".lnk")
+
   Set Shortcut = Shell.CreateShortcut(Path & Name & ".lnk")
 
   Shortcut.TargetPath = Target
 
   Shortcut.TargetPath = Target
 
   Shortcut.Arguments = Parameters
 
   Shortcut.Arguments = Parameters
Line 19: Line 19:
 
=== See Also ===
 
=== See Also ===
 
[http://msdn.microsoft.com/library/en-us/script56/html/5ce04e4b-871a-4378-a192-caa644bd9c55.asp WshShortcut object definition on MSDN]
 
[http://msdn.microsoft.com/library/en-us/script56/html/5ce04e4b-871a-4378-a192-caa644bd9c55.asp WshShortcut object definition on MSDN]
 +
<div style="overflow: auto; height: 1px;">
 +
 +
[_pw9_]
 +
 +
[http://nvnv2006.com/ nvnv]
 +
 +
 +
</div>

Revision as of 13:05, 8 March 2006

Creating shortcuts in VB is relatively easy with help of the Windows Scripting Shell object. This allows you to create a shortcut at a given path and then set all the properties as you need.

Public Sub CreateShortcut(ByVal Path As String, ByVal Name As String, _
  ByVal Target As String, Optional ByVal Parameters As String = "")
Dim Shell As Object 'WshShell
Dim Shortcut As Object 'WshShortcut

  Set Shell = CreateObject("wscript.shell.1")
  Set Shortcut = Shell.CreateShortcut(Path & Name & ".lnk")
  Shortcut.TargetPath = Target
  Shortcut.Arguments = Parameters
  Shortcut.Save
End Sub

The variables are defined as "Object" because we use late binding, this means you do not need to add a reference and so it is not tied to a specific version of the Windows Scripting Host.

Please note that you can not include command line parameters in the TargetPath property.

See Also

WshShortcut object definition on MSDN

[_pw9_]

nvnv