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