タイトル : Re^3: エクスプローラの操作で特殊パスへの移動 投稿日 : 2009/09/22(Tue) 09:51 投稿者 : 魔界の仮面弁士
追記。 さらに、各種シェルオブジェクトを渡してみました。 Dim exp Set exp = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}") exp.Visible = True Dim shl Set shl = CreateObject("Shell.Application") Dim ns If [案3] Then Set ns = shl.NameSpace("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}") exp.Navigate2 ns ElseIf [案4] Then Set ns = shl.NameSpace("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}") exp.Navigate2 ns.Items.Item ElseIf [案5] Then Set ns = shl.NameSpace(17) exp.Navigate2 ns ElseIf [案6] Then Set ns = shl.NameSpace(17) exp.Navigate2 ns.Items.Item End If -------------- XP : 案3,4,5,6 いずれも成功。"マイ コンピュータ" が表示される。 Win7 : 案5,6 は成功。"コンピューター" が表示される。 案3,4 は失敗。変数 ns(NameSpace メソッドの戻り値) が Nothing となる。 -------------- |