'必须使用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