VB.NET创建桌面快捷方式

'''   <summary>
     '''  创建桌面快捷方式
     '''   </summary>
     '''   <remarks></remarks>
     Private  Sub CreateDesktopShortcut()
         Dim appName = My.Application.Info.CompanyName & My.Application.Info.ProductName
         Dim desktopPath = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
         Dim fileDesktop  As FileInfo =  New FileInfo(desktopPath +  " \\ " & appName &  " .lnk ")
         If  Not fileDesktop.Exists  Then
             Dim  shell =  New WshShell()
             Dim shortcut =  CType( shell.CreateShortcut(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) +  " \\ " & appName &  " .lnk "), IWshShortcut)
            shortcut.WorkingDirectory = System.Environment.CurrentDirectory
            shortcut.WindowStyle =  1
            shortcut.Description = appName
            shortcut.IconLocation = Application.ExecutablePath
            shortcut.TargetPath = Application.StartupPath +  " \\ " + My.Application.Info.AssemblyName &  " .exe "
            shortcut.Save()
         End  If
     End Sub

 

创建开机启动方式

 

   Private  Sub CreateStartup()
         Dim appName = My.Application.Info.CompanyName & My.Application.Info.ProductName
         Dim startupPath = Environment.GetFolderPath(Environment.SpecialFolder.Startup)
         Dim fileStartup  As FileInfo =  New FileInfo(startupPath +  " \\ " & appName &  " .lnk ")
         If  Not fileStartup.Exists  Then
             Dim  shell =  New WshShell()
             Dim shortcut =  CType( shell.CreateShortcut(Environment.GetFolderPath(Environment.SpecialFolder.Startup) +  " \\ " & appName &  " .lnk "), IWshShortcut)
            shortcut.WorkingDirectory = System.Environment.CurrentDirectory
            shortcut.WindowStyle =  1
            shortcut.Description = appName
            shortcut.IconLocation = Application.ExecutablePath
            shortcut.TargetPath = Application.StartupPath +  " \\ " + My.Application.Info.AssemblyName &  " .exe "
            shortcut.Save()
         End  If
     End Sub