创建桌面快捷方式

mengl520

'========================================================================
'功能:创建桌面快捷方式
'用法:Call CreatDeskLnk("\女孩.lnk","%windir%\system32\cmd.exe","ALT+CTRL+C")
'注意:
'      '第一个参数:快捷名称
'      '第二个参数:源文件路径
'      '第三个参数:热键
'========================================================================
Public Sub CreatDeskLnk(ByVal strLnkName As String, ByVal strExePath As String, ByVal strHotKey As String)
    Set WshShell = CreateObject("Wscript.shell")
    strDesktop = WshShell.SpecialFolders("Desktop")
    Set oMyShortcut = WshShell.CreateShortcut(strDesktop & strLnkName) '此处为快捷名称
    'oMyShortcut.IconLocation = "" '此处为快捷图标
    oMyShortcut.TargetPath = strExePath '此处为源文件
    oMyShortcut.Hotkey = strHotKey  ''此处为快捷热键
    oMyShortcut.Save
End Sub