[编程实例]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 
 

你可能感兴趣的:([编程实例]vbs脚本删除桌面上的快捷方式腾讯QQ)