Count

構文
iCount = ShellWindows.Count
引数
戻値
コレクション内のアイテムの数

プログラム実行例

起動しているInternet Explorerの数を出力

DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM cnt = 0

FOR n = 0 TO Shell.Windows.Count - 1
	IF Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1
NEXT
 
PRINT cnt
  1. CREATEOLEOBJ
  2. Shell.Windows
  3. Shell.ShellWindows.Count
  4. Shell.ShellWindows.Item
  5. IE
  6. IE.Name