ゴミ箱を起動するには？

解決

α 2001-03-31 20:43:02 No: 74076

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

PAPY 2001-04-01 22:24:02 No: 74077

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

α 2001-04-03 00:52:23 No: 74078

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

PAPY 2001-04-03 20:47:46 No: 74079

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

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

α 2001-04-03 21:18:09 No: 74080

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

α 2001-04-03 21:18:44 No: 74081