怎样在VB中调用"我的电脑"
哪位能给我讲下啊
怎样在VB中调用我的电脑
我用Shell(pathname[,windowstyle])
试着打开C盘也不行啊
[解决办法]
shellExecute() 这个Win32 API
或者
Shell "explorer c:\ ", vbNormalFocus
[解决办法]
楼上的可以,或者
Private Declare Function ShellExecute Lib "shell32.dll " Alias "ShellExecuteA " (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Command1_Click() '我的文档
ShellExecute Me.hwnd, "open ", "explorer ", vbNullString, vbNullString, 1
End Sub
Private Sub Command2_Click() '我的电脑
ShellExecute Me.hwnd, "open ", "explorer ", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D} ", vbnulstring, 1
End Sub
Private Sub Command3_Click() '网上邻居
ShellExecute Me.hwnd, "open ", "explorer ", "::{208d2c60-3aea-1069-a2d7-08002b30309d} ", vbNullString, 1
End Sub
Private Sub Command4_Click() '回收站
ShellExecute Me.hwnd, "open ", "explorer ", "::{645ff040-5081-101b-9f08-00aa002f954e} ", vbNullString, 1
End Sub
Private Sub Command5_Click() '控制面板
ShellExecute Me.hwnd, "open ", "explorer ", "::{21ec2020-3aea-1069-a2dd-08002b30309d} ", vbNullString, 1
End Sub