エクスプローラで選択カーソルを移動するには？

解決

ＫＫ 2004-11-09 03:16:18 No: 86556

お世話になります。

ある指定ファイルが保存されているディレクトリへの移動を
ShellExecuteEx関数を使用して実現することはできたのですが、
これで立ち上がったエクスプローラ内で、指定ファイルへカーソル
を移動させる方法が思いつかず質問させていただきました。

ご存知の方が、いらっしゃいましたら、ご教授願います。

魔界の仮面弁士 2004-11-09 04:30:27 No: 86557

オートメーションで操作するサンプル。

エクスプローラを起動後、C:\Program Files\ フォルダを開き、
その中の Common Files を選択状態にしています。

Set Fld = CreateObject("InternetExplorer.Application")
Fld.Top = 0
Fld.Left = 0
Fld.Width = 640
Fld.Height = 480
Fld.Navigate2 "C:\Program Files\"
Fld.ShowBrowserBar "{EFA24E64-B078-11D0-89E4-00C04FC9E26E}", True
Fld.Visible = True
Fld.Document.SelectItem Fld.Document.Folder.Items().Item("Common Files"), CVar(1&)

魔界の仮面弁士 2004-11-09 04:36:17 No: 86558

エクスプローラの起動時オプションを使うサンプル。

Shell "Explorer /e,/select,""C:\Program Files\Common Files""", vbNormalFocus

'http://support.microsoft.com/default.aspx?scid=kb;ja;314853

KK 2004-11-09 18:47:47 No: 86559

非常に返答が遅れまして申し訳ありません。

魔界の仮面弁士様、ご返答いただきありがとうございます。
こういった方法でできるんですね。全く考え付きませんでした。
特に起動オプションを用いるところは、盲点でした。

解決いたしました。
御助力感謝いたします。
ありがとうございました。