windows创建桌面快捷方式的VBA脚本

最新推荐文章于 2025-03-18 19:37:34 发布

转载最新推荐文章于 2025-03-18 19:37:34 发布 · 375 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/hznet/p/3891860.html

文章标签：

#shell

    Dim wShell, oShortcut
    'Dim strDesktop$ ' 为了与VBS兼容，
    Dim strDesktop    ' 这里改写一下，测试通过。。。
    Set wShell = CreateObject("Wscript.shell")
    strDesktop = wShell.SpecialFolders("Desktop")
    strDesktop = strDesktop + "\搜物网-货源必备.lnk"
    Set oShortcut = wShell.CreateShortcut(strDesktop)
    oShortcut.TargetPath = "http://www.sowu.com/"                 '快捷方式对象的目标路径
    oShortcut.Description = "MM图" & vbCrLf & ""    '快捷方式对象的说明
    'oShortcut.Hotkey = "CTRL+ALT+A"                                         '快捷方式对象的热键
    'oShortcut.WorkingDirectory = "d:\program Files\uusee\skins\UUPlayer"    '快捷方式对象的工作目录
    oShortcut.IconLocation = "%SystemRoot%\system32\SHELL32.dll,211"        '快捷方式对象的图标位置
    oShortcut.Save

转载于:https://www.cnblogs.com/hznet/p/3891860.html