B魔方大人

ini文件改成自己，比如d:\a.ini

set f＝creatobject("scripting.filesystemobject").opentextfile("ini文件",1)
do until f.atendofstream
redim preserve st(k)
st(k)＝f.readline:loop:f.close
s＝join(st,":")
EXEcute(s)
s＝"":f＝""
复制代码