[分享]vbs创建桌面快捷方式示例

batman

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

1. Set ws = CreateObject("WScript.Shell")
   
2. DesktopPath = ws.SpecialFolders("Desktop")
   
3. Set url = ws.CreateShortcut(DesktopPath & "\bathome.url")
   
4. url.TargetPath = "http://www.bathome.net/"
   
5. url.Save
   
6. Set url = Nothing
   
7. Set ws = Nothing

复制代码

hbwazxf

感谢版主，学习了。。。

myzam

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

batman

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

wc726842270

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

myzam

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