复制代码
- 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
欢迎光临 批处理之家 (http://bathome.net./) | Powered by Discuz! 7.2 |