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. script.function.CREATEOLEOBJ(1)
  2. com.Shell.Windows(4)
  3. com.Shell.ShellWindows.Count(5)
  4. com.Shell.ShellWindows.Item(6)
  5. com.IE(6)