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
原文地址:http://www.cnblogs.com/hznet/p/3891860.html