|
'必须使用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
————————————————
版权声明:本文为CSDN博主「雷阵太阳」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/sinat_29158831/article/details/107526574
|
|