【vbs】删除桌面指定快捷方式

'必须使用ANSI编码，才能正确删除含中文的快捷方式
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编码才会有正确的效果。