成功しなかったようですね。
きちんと調べてなくてすいません。
>1.「マイコンピュータ」などのエクスプローラを表示した状態で、「クイック起動」の「デスクトップの表示」クリックでデスクトップを表示し、再度「デスクトップの表示」クリックで元の状態を表示した後だと教えてもらったCodeを実行すると必ず成功する。
>2.(1)の方法で、エクスプローラを表示してないと成功しない。
>3.デスクトップでの「F5」キーは(1)と同じ状態で連続で反映されない。しかし、マウス右クリックメニューの「最新の状態に更新」では毎回反映される。
どうなってるのでしょう・・・・。
よくわかりません(^^;
でも、右クリックメニューの「最新の状態に更新」で出来るのなら、
このコードを少し改造すればいけるかもしれません。
これでどうでしょう?
コード:
Dim hDesktopWnd As HWND,a As Long
hDesktopWnd=FindWindow(NULL,"Program Manager")'デスクトップウインドウを取得
SetForegroundWindow(hDesktopWnd)'アクティブにする
keybd_event(VK_APPS,0,0,0)'APPSキーを押す
keybd_event(VK_APPS,0,KEYEVENTF_KEYUP,0)'離す
keybd_event(Asc("E"),0,0,0)'Eキーを押す
keybd_event(Asc("E"),0,KEYEVENTF_KEYUP,0)'離す
右クリックメニューを表示し、Eキーを押すプログラムです。
でも、もうちょっとエレガントな方法はないでしょうか?
一瞬チラッと右クリメニュがでますし、
環境によっては、出ないかもしれません。