VBS删除快捷方式名包含某几个字符的快捷方式怎么写！

[kangkanggirl]

'on error resume next
set fso=wscript.createobject("scripting.filesystemobject")
set WshShell = WScript.CreateObject("WScript.Shell")
set f=fso.getfolder(WshShell.SpecialFolders("Desktop"))
set fs=f.files
for each f1 in fs
set file=fso.getfile(f1)
if right(file.name,4)=".lnk" then
set oShellLink=WshShell.CreateShortcut(file.name)
if right(oShellLink.TargetPath,xxxxxxxx) then
fso.deletefile(file.name),true
end if
end if

next
、
------------------------------
上面的代码是要怎么改 用什么函数

[Microogle]

On Error Resume Next
Set oShell = CreateObject("Shell.Application")
Set oDir = oShell.NameSpace(0)  '桌面
	For Each i In oDir.Items
		If i.IsLink And InStr(LCase(i.Name),"aa") Then   '文件名是否包含aa
			'If MsgBox("是否删除" & i.Name & "?",vbYesNo) = 6 Then
				i.Verbs.Item(i.Verbs.Count - 3).DoIt
			'End If
		End If
	Next