Jenna Jameson Pierced Tits

Create a shortcut with VB.NET

Inspired by a post appeared on the MSDN forum I would like to offer you a tip on how to create a shortcut using VB.NET. To create a shortcut we can proceed in two ways: either we study the structure of the file. Lnk and write a class that is able to recreate that structure or use Windows Scripting Host.

The first solution is feasible, but cumbersome because the structure of a lnk file is not trivial. Anyone interested to see how it is composed, internally, a lnk file can download the following reference guide ( link).

I would like to offer you the second street and will create a class that encapsulates the use of Windows Scripting Host. The object model of Windows Scripting Host is contained in IWshRuntimeLibrary dll that can be referenced in our project, using the COM tab of the window to add the reference:

Objects that are inside the library will use the WshShell class and the class WshShortcut. The first of these is the actual shell of Windows Scripting Host and, among the many methods available, the method has CreateShortcut () as an argument that provides the full name of the shortcut path and extension, and returns an object of WshShortcut WshUrlShortcut class or class (actually the method, since COM, returns an object but we can cast the result to the class or WshShortcut WshUrlShortcut at will). Calling CreateShortcut not physically create the link but the link is created using the object returned by the method. For more info on the class WshShell refer to the following link

. The object

WshShortcut therefore represents a link (the WshUrlShortcut, in fact, a subset of properties WshShortcut and is designed for web link) and provides all the properties that we need to define the same link (eg icon, working directory, description, etc.. etc...) For more info on the class WshShortcut refer to the following link

.

The class that we want to bring down a number of properties for the shortcut of the definition and a method for rescuing the same (in a similar way as it does the WshShortcut) and encapsulate the use of the two previous classes of scripting.

Imports

IWshRuntimeLibrary

 

Public

Class

Shortcut

 

     Public

Sub

New

(

ByVal

shortcutFullName

As
1. String )
2.         
Me
3. .ShortcutFullName = shortcutFullName      End Sub
4.  
5.      Private _ShortcutFullName As String      Public Property ShortcutFullName
As
6. String
7.          Get             
Return
8. _ShortcutFullName
9.          End Get         
Set
10. ( ByVal value As String )             
If
11. String .IsNullOrWhiteSpace(value) Then
Throw New ArgumentNullException
13. ( "ShortcutFullName" ,
"ShortcutFullName can not be empty!"
14. ) _ShortcutFullName = value & # 160; End September
15. End Property        Public Property TargetPath As String
16.     
Public
17. Property WindowStyle As
ShortcutWindowsStyle
18. = ShortcutWindowsStyle .NormalFocus     
Public
Property
20. Hotkey As String      Public
Property
21. IconPath As String      Public Property IconIndex
As
22. Int16 = 0      Public Property Description
As
23. String      Public Property WorkingDirectory
As
24. String      Public Property Arguments
As
25. String        Public
Function
26. Save() As Boolean          Dim retval =
False
27.          Dim shortCut As IWshShortcut =
Nothing
29.          Dim shell As WshShell = Nothing
30.          Try             shell =
New
31. WshShell ()          Catch ex As
Exception
32.              Throw          End
Try
33.         
If
34. shell IsNot Nothing
Then
35.              Try                 shortCut =
CType
36. ( shell .CreateShortcut(
Me
37. .ShortcutFullName), IWshShortcut )             
Catch
38. ex As Exception                  Throw
39.              End
Try
40.              If shortCut IsNot Nothing
Then
41.                  shortCut .TargetPath = Me .TargetPath
42.                  shortCut .WindowStyle =
CInt
43. ( Me .WindowStyle)                 
shortCut
44. .Description = Me .Description                  ShortCut . working directory = Me . WorkingDirectory
45. & # 160;.. shortcut IconLocation = String format (
"{0}, {1}"
46. , Me . IconPath, Me . IconIndex) & # 160;
shortCut
47. .Arguments = Me .Arguments                 
If
48. Not String .IsNullOrWhiteSpace(
Me
49. .Hotkey) Then                      shortCut .Hotkey = Me .Hotkey                 
End
50. If  
51.                  Try                      shortCut .Save()                     retval = System.IO. File .Exists(
Me
52. .ShortcutFullName)                  Catch ex
As
53. Exception                     
Throw
55.                  End
Try
56.             
End
57. If         
End
58. If          Return retVal
59.      End
60. Function End Class
62. As we can see, the method Save () (which, compared to the amount of WshShortcut returns a result) perform the following steps: 1) Create a instance of the WshShell:
64. Dim shell As WshShell = Nothing
65. Try

shell = New

WshShell

()

Catch ex As

Exception

1. Throw End Try
3. 2) If the instance of the shell has been created creates an instance of the class WshShortcut:
4. Try shortcut = CType
5. ( shell. CreateShortcut (
Me
6. . ShortcutFullName) IWshShortcut )

Catch ex As

Exception

Throw

End Try
2. 3) If the instance of the shortcut was created, are valued properties:
3. shortcut. TargetPath = Me . TargetPath
4. shortcut. WindowStyle = CInt
5. ( Me . WindowStyle)

shortcut.

Description = Me

.

Description

shortcut. WorkingDirectory =

Me

. WorkingDirectory

1. shortcut. IconLocation String = . Format (
"{0}, {1}"
2. , Me . IconPath, Me . IconIndex)
3. shortcut. Arguments = Me . Arguments
If
4. Not String . IsNullOrWhiteSpace (
Me
5. . Hotkey) Then shortcut. Hotkey = Me . Hotkey
End If
7. 4) method is called Save () WshShortcut class and checked the lnk file is actually created: Try
8. shortcut. Save () retval = System.IO. File
9. . Exists ( Me . ShortcutFullName)

Catch ex As

Exception Throw End

1. Try
3. Un possibile utilizzo della classe è il seguente:
4. Dim desktop = Environment .GetFolderPath(
Environment
5. . SpecialFolder .DesktopDirectory)
6. Dim shortcutFullname = System.IO. Path .Combine(desktop,
"Doc.lnk"

)

Dim

shortcut =

New

Shortcut

(shortcutFullname)

1. shortcut .WindowStyle = ShortcutWindowsStyle .NormalNoFocus shortcut .Description =
"I miei documenti"
2. shortcut. TargetPath = Environment . GetFolderPath (
Environment
3. . SpecialFolder . MyDocuments) shortcut. Save ()
4. This example creates a link called Doc lnk user's desktop that allows you to open documents.
5. Finally we note that one of the properties of the class we created is the Shortcut enumeration:
6. Public Enum ShortcutWindowsStyle
NormalFocus =
7. WshWindowStyle . WshNormalFocus
NormalNoFocus =

WshWindowStyle

. WshNormalNoFocus

MaximizedFocus =

WshWindowStyle

. WshMaximizedFocus

MinimizeFocus =

WshWindowStyle

. WshMinimizedFocus

MinimizedNoFocus =

WshWindowStyle
1. . WshMinimizedNoFocus Hide = WshWindowStyle . WshHide
End Enum
4. that defines the possible values \u200b\u200bof the style of the shortcut window encapsulating the similar enumeration of WshWindowStyle IWshRuntimeLibrary.
5. Technorati tags: IWshRuntimeLibrary
,
6. WshShell , WskShortcut
,
7. WshUrlShortcut , Shortcut
,
8. Link , . lnk, VB.NET