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で作る »