System.Diagnostics.Process.Start("Explorer.exe", "C:\")
这个"C:\"参数打开的是C盘，如果我要打开“我的电脑”怎么写这个参数？
我试过用“我的电脑”，它说找不到路径

System.Diagnostics.Process.Start("Explorer.exe", "c：\windows\explorer.exe")

如何做到VB程序打开“我的电脑”？- -

Shell "EXPLORER.EXE /n, /e, ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
---------------------------------------------------------------

Explorer [/n][/e][[,/root],[path]][[,/select],[path filename]]
参数说明
/n表示以“我的电脑”方式打开一个新的窗口，通常打开的是Windows安装分区的根目录。

/e表示以“资源管理器”方式打开一个新的窗口，通常打开的也是Windows安装分区的根目录。

/root,[path]表示打开指定的文件夹，/root表示只显示指定文件夹下面的文件(夹)，不显示其他磁盘分区和文件夹；[path]表示指定的路径。

如果不加/root参数，而只用[path]参数，则可以显示其他磁盘分区和文件夹中的内容。另外，[path]还可以指定网络共享文件夹。

/select,[path filename]表示打开指定的文件夹并且选中指定的文件，[path filename]表示指定的路径和文件名。

如果不加/select参数，则系统会用相应的关联程序打开该文件。如果[path filename]不跟文件名就会打开该文件夹的上级目录并选中该文件夹。


---------------------------------------------------------------

ShellExecute Me.hWnd, "open", "notepad", "h:\np.txt", vbNullString, SW_SHOWNORMAL
'打印
ShellExecute Me.hWnd, "print", "H:\print.txt", vbNullString, vbNullString, SW_SHOWNORMAL
ShellExecute Me.hWnd, "explore", "h:\", vbNullString, vbNullString, SW_SHOWNORMAL
'查找对话框
ShellExecute Me.hWnd, "find", "h:\", vbNullString, vbNullString, SW_SHOWNORMAL
'资源管理器
ShellExecute Me.hWnd, "open", "explorer", vbNullString, vbNullString, SW_SHOWNORMAL
'我的电脑
ShellExecute Me.hWnd, "open", "explorer", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNullString, SW_SHOWNORMAL
'网上邻居
ShellExecute Me.hWnd, "open", "explorer", "::{208D2C60-3AEA-1069-A2D7-08002B30309D}", vbNullString, SW_SHOWNORMAL
'回收站
ShellExecute Me.hWnd, "open", "explorer", "::{645FF040-5081-101B-9F08-00AA002F954E}", vbNullString, SW_SHOWNORMAL
'打印机和传真
ShellExecute Me.hWnd, "open", "explorer", "::{2227A280-3AEA-1069-A2DE-08002B30309D}", vbNullString, SW_SHOWNORMAL

也可以用shell，类似

Private Const MyComp As String = "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
Private Const MyRecBin As String = "Explorer ::{645ff040-5081-101b-9f08-00aa002f954e}"
Private Const MyNet As String = "Explorer ::{208d2c60-3AEA-1069-a2d7-08002B30309D}"
Private Const MyPrint As String = "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" _
& "\::{2227a280-3aea-1069-A2dE-08002B30309D}"
Private Const MyCtrPan As String = "Explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}" _
& "\::{21ec2020-3aea-1069-A2dd-08002B30309D}"

Private Sub lblRun_Click(Index As Integer)
Select Case Index
Case 0
Call ShellOut(MyComp)
Case 1
Call ShellOut(MyNet)
Case 2
Call ShellOut(MyRecBin)
Case 3
Call ShellOut(MyPrint)
Case 4
Call ShellOut(MyCtrPan)
Case 5
End Select

End Sub