Set objShellApp = CreateObject("Shell.Application") 
Set objFolderItem = objShellApp.NameSpace("C:\Windows\System32").Items().item("noteapd.exe")
Set objFIVs = objFolderItem.Verbs()
For i=0 To objFIVs.Count - 1
MsgBox objFIVs.Item(i)
Set objFIV = objFIVs.Item(i)
If objFIV.Name = "属笥(&R)" Then 
objFIV.DoIt
Exit For
End IF
Next
复制代码