tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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 となる。
--------------

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。