[问题求助] VBS调程序的右键，怎么弄？

04175884

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
复制代码

这个代码有什么错？运行不了,求VBS或批处理调用程序右键菜单

9zhmke

凡涉及汉字时必须注意编码，使用ansi或者utf8