Question

跪求VB创建开始菜单快捷方式以及桌面快捷方式的代码

例如为APP.Path中的123.exe创建开始菜单快捷方式以及桌面快捷方式的代码,不要随便上网找个代码敷衍我,满意再加分

Answer 1

'是这意思？ Option Explicit Private Sub Command1_Click() Dim s As String With CreateObject("Wscript.shell") Dim myshortcut Set myshortcut = .CreateShortcut(.SpecialFolders("Desktop") & "\abc.lnk") '桌面快捷键 myshortcut.TargetPath = IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\") & "abc.exe" myshortcut.Save s = Replace(.SpecialFolders("Desktop"), "桌面", "") & "\「开始」菜单\程序\" Set myshortcut = .CreateShortcut(s & "\abc.lnk") '程序快捷键 myshortcut.TargetPath = IIf(Right$(App.Path, 1) = "\", App.Path, App.Path & "\") & "abc.exe" myshortcut.Save End With End Sub