Create a shortcut on Windows Mobile using Visual Basic

  Public Enum ceFolders As Integer
    PROGRAM_FILES = &H26  ' \Program Files
    WINDOWS = &H24        ' \Windows
    STARTUP = &H7         ' \Windows\StartUp
    STARTMENU = &HB       ' \Windows\Start Menu
    PROGRAMS = &H2        ' \Windows\Start Menu\Programs
    FONTS = &H14          ' \Windows\Fonts
    FAVORITES = &H6       ' \Windows\Favorites
    PERSONAL = &H5        ' \My Documents
    MUSIC = &HD           ' \My Music
    PICTURES = &H27       ' \My Pictures
    'VIDEOS = &HE          ' \My Videos     <- Doesn't seem to work
  End Enum
 
 
  Public Declare Function SHCreateShortcut Lib "coredll.dll" (ByVal szShortcut As System.Text.StringBuilder, ByVal szTarget As System.Text.StringBuilder) As Boolean
  Public Declare Function SHGetSpecialFolderPath Lib "coredll.dll" (ByVal hWnd As Integer, ByVal lpszPath As String, ByVal nFolder As ceFolders, ByVal fCreate As Boolean) As Boolean
 
  Public AppName As String = Left(System.Reflection.Assembly.GetExecutingAssembly.GetName.FullName, _
   InStr(System.Reflection.Assembly.GetExecutingAssembly.GetName.FullName, ",") - 1)
 
  Public AppPath As String = Mid(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase, 1, _
   InStrRev(System.Reflection.Assembly.GetExecutingAssembly.GetName.CodeBase, "\") - 1)
 
 
  Public Function CreateShortcut(ByVal InFolder As ceFolders) As Boolean
 
    Try
      Dim sPath As String = New String(" ", 255)
 
      ' Get the folder the shortcut is to be created in
      If SHGetSpecialFolderPath(0, sPath, InFolder, False) = False Then Throw New Exception("Failed to get path")
      sPath = IO.Path.Combine(sPath, AppName & ".lnk")
 
      ' If the shortcut exists, delete it
      If File.Exists(sPath) = True Then File.Delete(sPath)
 
      ' Build the shortcut's details
      Dim ShortcutLocation As New System.Text.StringBuilder(sPath)
      Dim ShortcutTarget As New System.Text.StringBuilder("""" & AppPath & "\" & AppName & ".exe""")  ' Target MUST be in quotation marks
 
      ' Create the shortcut
      If SHCreateShortcut(ShortcutLocation, ShortcutTarget) = False Then Throw New Exception("Failed to create shortcut")
 
      Return True
 
    Catch ex As Exception
      Return False
      'MsgBox(ex.Message)
 
    End Try
 
  End Function

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54: