创建快捷方式的vbs

smilediao

不记得是在哪天了，看到了此脚本的java版本，看了下，还可以，大概的可以看懂，所以就把它给改成了vb脚本供大家参考！下面的例子作用是给记事本创建一个桌面快捷方式，希望有用！

set WSHShell = CreateObject("WScript.Shell") 
DesktopPath = WSHShell.SpecialFolders("Desktop") 
set Shortcut1 = WSHShell.CreateShortcut(DesktopPath + "\记事本快捷方式.lnk") 
Shortcut1.TargetPath = "c:\Windows\notepad.exe" 
Shortcut1.Save()
复制代码