我尝试了很多方法,也查了很多资料,都没有找到,下面这种方式好像只能获取第一个文件上的右键菜单- Set shApp = CreateObject("Shell.Application")
- ' 获取文件上的所有右键菜单项
- ' Set items = shApp.NameSpace(0).Self.Verbs()
- Set items = shApp.NameSpace(0).Self.Verbs()
- ' 遍历所有菜单项
- For Each item In items
- MsgBox item.Name
- Next
复制代码
|