2012-05-03 76 views

回答

2

答案是肯定的,不是。沒有直接的方法來做到這一點。你可以創建一個解決方法,但它會涉及很多。

「正確的」方法是使用ShellFolderItem對象的InvokeVerb方法。它看起來像這樣:

Set objShell = CreateObject("Shell.Application") 
Set objFolder = objShell.Namespace("C:") 
Set objFile = objFolder.ParseName("test.vbs") 

' Execute context menu item 
'objFile.InvokeVerb("&Copy") 

' List all possible verbs 
Set colFolderItemVerbs = objFile.Verbs 

For Each objFolderItemVerb in colFolderItemVerbs 
    WScript.Echo Chr(34) & objFolderItemVerb.Name & Chr(34) 
Next 

問題是子菜單項被列爲空字符串。

作爲一種可能的解決方法是導航到發送到文件夾並獲取您要使用的快捷方式的命令行。然後你可以直接實現它。

相關問題