如何在VB下使一个command控件打开我的电脑和回收站呢？

Question

Private Sub Command1_Click()
  Shell "explorer.exe , ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus
End SubPrivate Sub Command2_Click()
  Shell "explorer.exe ,::{645FF040-5081-101B-9F08-00AA002F954E}", vbNormalFocus
End Sub

Answer 1

同意楼上。
刚我查了注册表，找到了我的电脑的CLSID。
我到运行处输入 explorer ,{20D04FE0-3AEA-1069-A2D8-08002B30309D}提示错误。原来没加"::"。

Answer 2

谢谢footballboy(郑创斌) GladisionBoy(编程子弟)

Answer 3

'TO chaoy2k (小猪也疯狂)  ,你给我的短消息收到了，回答如下
Private Sub Command3_Click() '网上邻居
  Shell "explorer.exe ,::{208D2C60-3AEA-1069-A2D7-08002B30309D}", vbNormalFocus
End Sub