[编程实例]vbs脚本删除桌面上的快捷方式腾讯QQ

1. 'vbs删除桌面上的快捷方式腾讯QQ
2. Dim fso,file
3. name1="腾讯QQ.lnk"
4. Set WshShell = Wscript.CreateObject("Wscript.Shell")
5. strDesktop  = WshShell.SpecialFolders("Desktop")
7. Set fso=CreateObject("Scripting.FileSystemObject") 
9. Set fld=fso.GetFolder(strDesktop)
10. For Each file In fld.Files
11. name=fso.GetFileName(file)
12. If name=name1 Then 
13. file.Delete
14. End If
15. Next