Verbs

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

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

プログラム実行例

右クリックメニュー取得

CONST ssfDesktop = 0

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

DIM FolderItemVerbs = FolderItem.Verbs

FOR i = 0 TO FolderItemVerbs.Count - 1
	PRINT FolderItemVerbs.Item(i).Name
NEXT
  1. Shell.NameSpace
  2. Shell.Folder.ParseName
  3. Shell.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. Shell.NameSpace
  3. Shell.Folder.Items
  4. Shell.Folder.GetDetailsOf
  5. Shell.FolderItems
  6. Shell.FolderItems.Item
  7. POS
  8. Shell.FolderItem.Verbs
  9. Shell.FolderItem.Verbs.Item
  10. Shell.FolderItem.Verbs.Item.Name
結果
Brother DCP-J963N Printer