批处理之家's Archiver

04175884 发表于 2019-7-15 11:16

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或批处理调用程序右键菜单

9zhmke 发表于 2019-10-28 22:25

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

页: [1]

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.