Verbs

ファイルやフォルダを右クリックしたときのメニューを格納したFolderItemVerbsコレクションを返します。

構文
FolderItemVerbs( Shell ) = FolderItem.Verbs( )
引数
戻り値
FolderItemVerbsコレクション

FolderItem オブジェクトを返す可能性のあるメソッド・プロパティ

Folder.ParseName メソッド (Shell)
FolderItems.Item メソッド (Shell)

プログラム実行例

右クリックメニュー取得

CONST ssfDesktop = 0

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDesktop)
DIM FolderItem = Folder.ParseName("sample.txt")

DIM FolderItemVerbs = FolderItem.Verbs

FOR i = 0 TO FolderItemVerbs.Count - 1
	PRINT FolderItemVerbs.Item(i).Name
NEXT
  1. NameSpace メソッド
  2. Folder.ParseName メソッド
  3. FolderItem.Verbs メソッド
  4. Shell.FolderItemsVerbs
  5. Shell.FolderItemsVerbs.Count
  6. Shell.FolderItemsVerbs.Item
  7. Shell.FolderItemsVerb.Name
結果
開く(&O)
印刷(&P)
編集(&E)

ALZipで圧縮(&L)
管理者権限で圧縮(&Y)
"a.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
  1. CREATEOLEOBJ
  2. NameSpace メソッド
  3. Folder.Items メソッド
  4. Folder.GetDetailsOf メソッド
  5. FolderItemsオブジェクト
  6. FolderItems.Item メソッド
  7. POS
  8. FolderItem.Verbs メソッド
  9. FolderItemVerbs.Item メソッド
  10. FolderItemVerb.Name プロパティ
結果
Brother DCP-J963N Printer