本ページには広告が含まれています。
目次
FolderItemVerbsコレクション（右クリックメニュー）から単一の項目名を取得します。
- 構文
- strName = FolderItemVerb.Name
- 引数
- 戻り値
FolderItemVerb オブジェクトを返すメソッド・プロパティ
- FolderItemVerb.Name プロパティ
- コレクション内の指定した項目のFolderitemverbオブジェクトを取得します。
プログラム実行例
「プログラム」の右クリックメニューの動作項目を取得
CONST ssfPROGRAMS = 2
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfPROGRAMS)
DIM FolderItemVerbs = Folder.Self.Verbs()
FOR FolderItemVerb IN FolderItemVerbs
PRINT FolderItemVerb.Name
NEXT結果
開く(&O)
クイック アクセスにピン留めする
コピー(&C)
以前のバージョンの復元(&V)
切り取り(&T)
コピー(&C)
ショートカットの作成(&S)
削除(&D)
名前の変更(&M)
プロパティ(&R)使用関数
デスクトップを開く
CONST ssfDESKTOP = 0
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDESKTOP)
DIM FolderItemVerbs = Folder.Self.Verbs()
FOR FolderItemVerb IN FolderItemVerbs
IF POS("&O", FolderItemVerb.Name) <> 0 THEN FolderItemVerb.DoIt()
NEXT使用関数
右クリックメニュー取得
CONST ssfDesktop = 0
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDesktop)
DIM FolderItem = Folder.ParseName("log.txt")
DIM FolderItemVerbs = FolderItem.Verbs
FOR FolderItemVerb IN FolderItemVerbs
PRINT FolderItemVerb.Name
NEXT結果
開く(&O)
印刷(&P)
編集(&E)
ALZipで圧縮(&L)
管理者権限で圧縮(&Y)
"log.zip" で圧縮(&Q)
コピー(&C)
削除(&D)
共有
以前のバージョンの復元(&V)
切り取り(&T)
コピー(&C)
ショートカットの作成(&S)
削除(&D)
名前の変更(&M)
プロパティ(&R)使用関数
デフォルトプリンターを取得
CONST ssfPRINTERS = 4
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfPRINTERS)
DIM FolderItems = Folder.Items
HASHTBL iColumn
FOR n = 0 TO 350
iColumn[Folder.GetDetailsOf(EMPTYPARAM, n)] = n
NEXT
FOR n = 0 TO FolderItems.Count - 1
DIM FolderItem = FolderItems.Item(n)
DIM PrinterName = Folder.GetDetailsOf(FolderItem, iColumn["名前"])
FOR i = 0 TO FolderItem.Verbs.Count - 1
IF POS("通常使うプリンターに設定", FolderItem.Verbs.Item(i).Name) <> 0 THEN CONTINUE 2
NEXT
PRINT PrinterName
BREAK
NEXT結果
Brother DCP-J963N Printer使用関数
関連記事
- FolderItem.InvokeVerb メソッド (Shell)
- ファイルやフォルダを右クリックしたときに表示されるメニューのコマンドを実行します。