09/02/25 00:42:33
こんなか？
Option Explicit
call hoge
call hogehoge
sub hogehoge()
Dim a(2)
a(0)="apple"
a(1)="berry"
a(2)="cucumber"
dim d
set d=CreateObject("Scripting.Dictionary")
d.add(1),a
dim f
for each f in d(1)
wscript.echo f
next
end sub
sub hoge()
Dim a
a=Array("apple","berry","cucumber")
dim d
set d=CreateObject("Scripting.Dictionary")
d.add(1),a
dim f
for each f in d(1)
wscript.echo f
next
end sub