« IE7の「リンク」バーからアプリを起動する。 | トップページ | コンソールコマンドを実行して、そのコンソールログを採取するコマンドをVB.NETで作る »

2008年9月 5日 (金)

ShellWindowsでWindows SearchのItem(n).Documentを見るとエラーになる。

Windows Searchを開いていると、Item(n).Documentを見るだけで、エラーになります。

エラー: クラスはオートメーションをサポートしていません。
コード: 800A01AE

この対処法は、エラーを拾ってもよいのですが、次でも迂回できます。

For Each ie In CreateObject("Shell.Application").Windows()
  If Right(ie.LocationName,17)=" - Windows Search" Then
    MsgBox "Windows Search"
  Else
    MsgBox TypeName(ie.Document)
  End If
Next

« IE7の「リンク」バーからアプリを起動する。 | トップページ | コンソールコマンドを実行して、そのコンソールログを採取するコマンドをVB.NETで作る »