2012-05-03 74 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 

問題は、サブメニュー項目が空の文字列としてリストされていることです。

回避策として、Send Toフォルダに移動して、使用するショートカットのコマンドラインを取得することができます。その後、直接実装することができます。

関連する問題