VBS调程序的右键,怎么弄?
[code]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[/code]这个代码有什么错?运行不了,求VBS或批处理调用程序右键菜单 凡涉及汉字时必须注意编码,使用ansi或者utf8
页:
[1]