[技术讨论] [分享]vbs创建桌面快捷方式示例

batman

以下代码将在电脑桌面上创建一个指向批处理之家主页的快捷方式

Set ws = CreateObject("WScript.Shell")
DesktopPath = ws.SpecialFolders("Desktop")
Set url = ws.CreateShortcut(DesktopPath & "\bathome.url")
url.TargetPath = "http://www.bathome.net/"
url.Save
Set url = Nothing 
Set ws = Nothing 
复制代码

hbwazxf

感谢版主，学习了。。。

myzam

1# batman
我觉得这两句是多余的
set url=nothing
set  ws=nothing
因为当你创建好了快捷方式后，程序就自动结束了。
这时卸载对象是自动的。不需要你去卸载。
个人意见。

batman

3# myzam
这是个个人习惯的问题，但我觉得这是个好习惯，不知兄弟是否认同。。。

wc726842270

比较好的习惯。事实的情况正如3L所说，以前也在此处迷茫过，但是后来就渐渐明白了。后来看了一些名明法就了解了。（只不过个人的E文没有水准，所以也就没细看）

myzam

习惯到是可以成自然，当然可以。