码迷,mamicode.com
首页 > Windows程序 > 详细

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

时间:2014-08-05 13:34:19      阅读:348      评论:0      收藏:0      [点我收藏+]

标签:des   http   os   io   ar   工作   amp   c   


    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
    

windows创建桌面快捷方式的VBA脚本,布布扣,bubuko.com

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

标签:des   http   os   io   ar   工作   amp   c   

原文地址:http://www.cnblogs.com/hznet/p/3891860.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!