タイトル : Re: エクスプローラを操作したい 投稿日 : 2009/07/13(Mon) 15:49 投稿者 : 魔界の仮面弁士
> 現在の環境は Vista+IE8 なのですが、 確認したいのですが、今、手元にあるのは XP32 + IE8 のみ…。 今夜にでも Vista64 + IE8 環境で確認してみます。 で。レイトバインドでも良いのであれば、 Set ie = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}") 'Set ie = New SHDocVw.ShellBrowserWindow で生成できないでしょうか。 IE7 以降では Shell が分離された関係で、エクスプローラの操作には、 Set ie = CreateObject("InternetExplorer.Application") 'Set ie = New InternetExplorer.Application の代わりに、この構文を使う必要があったはず。 As Object で都合が悪いなら、As IWebBrowser2 あたりで受けられるかも。 Dim exp As IWebBrowser2 Set exp = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}") '-- 以下おまけ exp.Navigate "C:\Program Files" exp.Visible = True 'As Object で受けないと、CurrentViewMode が使えない…。 Dim fv As Object 'Shell32.ShellFolderView Set fv = exp.Document Const FVM_THUMBNAIL As Long = 5 fv.CurrentViewMode = FVM_THUMBNAIL |