VB6(SP6),IE6SP1,XP(SP2)
3台のPCのうち1台のPCで
Dim W as new shdocvwctl.shellwindows'1
For each O in W'2
Debug.print O.locationUrl
Next
というようなプログラムが430エラーを返すようになりました。(2でおこります)
なので1を
SET W=CreateObject("Shell.Application").Windows()
になおしてエラーは回避できましたが
起動中のIE自体コレクションWにはいってない感じです。
エクスプローラしか入ってません。
コードがまちがっているのでしょうか?
XP再インストールしたら治りました。
ツイート | ![]() |