ゴミ箱を起動するには？

解決

---

ゴミ箱を起動したいと思うのですが、
Shell関数ではうまくうごきません。
どうすればよいのでしょうか。

編集    削除

---

Shell関数でも出来そうな気がしますが、
APIでやるとこのようになります。

Private Declare Function ShellExecute Lib "SHELL32" Alias "ShellExecuteA" (ByVal hWnd&, ByVal lpOperation$, ByVal lpFile$, ByVal lpParameters$, ByVal lpDirectory$, ByVal nShowCmd&) As Long
Const SW_SHOW = 5

Private Sub Command1_Click()
'エクスプローラーの左側にTreeViewを設置する方法
Call ShellExecute(Me.hWnd, "Open", "EXPLORER.EXE", "/n,/e,c:\recycled", "", SW_SHOW)
'エクスプローラーの左側にTreeViewを設置しない方法
'Call ShellExecute(Me.hWnd, "Open", "EXPLORER.EXE", "C:\recycled", "", SW_SHOW)
'エクスプローラーでCドライブを開く(おまけ)
'Call ShellExecute(Me.hWnd, "Open", "EXPLORER.EXE", "/n,/e,C:\", "Q ", SW_SHOW)
End Sub

編集    削除

---

しかし、デスクトップでゴミ箱をクリックした時と
同じ動作をするようにしたいのですが、
どのようにすればよいのでしょうか

編集    削除

---

上のこれでなると思いますが・・・

'エクスプローラーの左側にTreeViewを設置しない方法
'Call ShellExecute(Me.hWnd, "Open", "EXPLORER.EXE", "C:\recycled", "", SW_SHOW)

編集    削除

---

すみません。どうやら勘違いをしたようで・・・
宣言のところを標準モジュールで宣言せずに
Generalで宣言すればいいということですね。
ありがとうございました。

編集    削除

---

'

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。