VB.NET创建桌面快捷方式

最新推荐文章于 2023-03-04 10:42:59 发布

转载最新推荐文章于 2023-03-04 10:42:59 发布 · 570 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/ycmoon/archive/2011/10/23/2221663.html

文章标签：

#shell

''' <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

转载于:https://www.cnblogs.com/ycmoon/archive/2011/10/23/2221663.html