Set shell=CreateObject("wscript.shell")
Set fso=CreateObject("scripting.filesystemobject")
desktop=shell.SpecialFolders("desktop")
Set fso = CreateObject("Scripting.FileSystemObject")
name1="腾讯QQ.lnk"
For Each item In fso.GetFolder(desktop).Files
If fso.GetExtensionName(item)="lnk" Then
If item.Name=name1 Then
item.Delete True
exit for
End If
End If
Next
获取桌面路径desktop=shell.SpecialFolders("desktop") 遍历文件后缀为“lnk”的文件
fso.GetExtensionName(item)="lnk" 找到文件名相等的删除
此处很坑的是，如果你是通过弹窗的形式输出，会有看到明明（含中文的）文件名一致，但是就是无法删除，输出保存到txt
可以看到name1输出的中文是乱码的，vbs文件一定要用ANSI编码才会有正确的效果。
