[编程实例]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")
6. Set fso=CreateObject("Scripting.FileSystemObject") 
7. Set fld=fso.GetFolder(strDesktop)
8. For Each file In fld.Files
9. name=fso.GetFileName(file)
10. If name=name1 Then 
11. file.Delete
12. End If
13. Next