问一个关于Shell的问题。

Question

Shell "C:\WINnt\explorer.exe", vbNormalFocus
Shell "C:\WINnt\explorer.exe C:\Documents and Settings\Administrator\My Documents", vbNormalFocus按理说第一条应该是打开“资源管理器”
第二条打开“我的文档”但是两条似乎都是打开“资源管理器”，并且显示“我的文档”还问大家一个问题，如何才能打开“网上邻居”?谢谢！！！！！！

Answer 1

Shell "C:\WINnt\explorer.exe", vbNormalFocus
Shell "C:\WINnt\explorer.exe C:\Documents and Settings\Administrator\My Documents", vbNormalFocus按理说第一条应该是打开“资源管理器”
/+++++++++++++++++++++++++
/ 第二条打开“我的文档”
/+++++++++++++++++++++++++我已经试过了，是可以打开的，应该是楼是指定的‘我的文档’的位置有问题！
至于使用Shell找开‘网上邻居’的，没试过，我先再看看！
SHELL语句用法心得一、关于Rundll32.exe 
过去，你曾经为了自己编的文件管理器能Format 磁盘、浏览器能自动拨号连接而求助于那位高傲的 API。现在，Rundll32.exe向你提供了更为平易近人的 方法来实现这些功能。 
例如，要调用关机程序则为：shell “rundll32.exe user.exe，exitwindOws”。
调用模块 命 令 结 果 
　 rundll32.exe shell32.dll,Control_RunDLL 打开控制面板 
SHELL32.DLL 　 　 
　 rundll32.exe shell32,SHHelpShortcuts_Rundll PrintersFolder 打开打印机文件夹 
　 rundll32.exe shell32,SHHelpShortcuts_Rundll FontsFolder 打开字体文件夹 
　 rundll32.exe shell32,SHHelpShortcuts_Rundll AddPrinter 添加新打印机向导 
　 rundll32.exe shell32,SHformatDrive 格式化软盘 
SYSDM.CPL 　 　 
　 rundll32.exe shell32,Control_RunDLL sysdm.cpl 系统属性，常规 
　 rundll32.exe shell32,Control_RunDLL sysdm.cpl,,l 系统属性，设备管理器 
　 rundll32.exe shell32,Control_RunDLL sysdm.cpl,,3 系统属性，性能 
　 rundll32.exe shell32,Control_RunDLL sysdm.cpl @1 添加新硬件向导 
APPWIZ.CPL 　 　 
　 rundll32.exe shell32,Control_RunDLL appwiz.cpl,,1 添加/删除程序 
　 rundll32.exe shell32,Control_RunDLL appwiz.cpl,,2 安装Windows部件 
　 rundll32.exe shell32,Control_RunDLL appwiz.cpl,,3 制作启动盘 
DISKCOPY.DLL 　 　 
　 rundll32.exe diskcopy.dll,DiskcopyRundll 复制磁盘 
RNAUI.DLL 　 　 
　 rundll32.exe rnaui.dll,RnaDial x (x为连接名称) 打开拨号边接对话框，若已连接，则显示连接状态对话框 
　 rundll32.exe rnaui.dll,RnaWizard 新建拨号连接向导 
DESK.CPL 　 　 
　 rundll32.exe shell32,Control_RunDLL desk.cpl,,0 选择桌面背景 
　 rundll32.exe shell32,Control_RunDLL desk.cpl,,1 选择屏幕保护 
　 rundll32.exe shell32,Control_RunDLL desk.cpl,,2 选择外观 
　 rundll32.exe shell32,Control_RunDLL desk.cpl,,3 设置显示属性 
MAIN.CPL 　 　 
　 rundll32.exe shell32,Control_RunDLL main.cpl @0 设置鼠标属性 
　 rundll32.exe shell32,Control_RunDLL main.cpl @1 设置键盘属性，速度 
　 rundll32.exe shell32,Control_RunDLL main.cpl @1,,1 设置键盘属性，语言 
　 rundll32.exe shell32,Control_RunDLL main.cpl @2 打开打印机文件夹 
　 rundll32.exe shell32,Control_RunDLL main.cpl @3 打开字体属性 
　 rundll32.exe shell32,Control_RunDLL main.cpl @4 设置输入法 
MODEM.CPL 　 　 
　 rundll32.exe shell32,Control_RunDLL modem.cpl,,add 添加调制解调器向导 
MMSYS.CPL 　 　 
　 rundll32.exe shell32,Control_RunDLL mmsys.cpl @1 设置声音属性（也可以加入,,0到,,4的参数以选择不同的标签） 
UESR.EXE 　 　 
　 rundll32.exe user.exe,exitwindows 关闭计算机 

Answer 2

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 = 1Private Sub Command1_Click() ' 我的文档
ShellExecute Me.hwnd, "open", "explorer", vbNullString, vbNullString, 1
End SubPrivate Sub Command2_Click() '我的电脑
ShellExecute Me.hwnd, "open", "explorer", "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbnulstring, 1End SubPrivate Sub Command3_Click() '网上邻居
ShellExecute Me.hwnd, "open", "explorer", "::{208d2c60-3aea-1069-a2d7-08002b30309d}", vbNullString, 1
End SubPrivate Sub Command4_Click() '回收站
ShellExecute Me.hwnd, "open", "explorer", "::{645ff040-5081-101b-9f08-00aa002f954e}", vbNullString, 1
End SubPrivate Sub Command5_Click() '控制面板
ShellExecute Me.hwnd, "open", "explorer", "::{21ec2020-3aea-1069-a2dd-08002b30309d}", vbNullString, 1
End SubPrivate Sub Command6_Click() '打开指定的路径
ShellExecute Me.hwnd, "open", "D:\vb,vbNullString, vbNullString, 1
End Sub
Private Sub Command7_Click() '音量控制
 Shell "sndvol32.exe", vbNormalFocus
End Sub

Answer 3

这个是打开网上邻居的。Shell "rundll32.exe shell32,Control_RunDLL ncpa.cpl", vbNormalFocus如果不行，请在Shell中指定详细的rundll32.exe的路径。试过几台机，都可以的！

Answer 4

谢谢两位,我还有个问题,就是在 win2000中和在winXP 是否都可以打开呢?Shell "C:\WINnt\explorer.exe", vbNormalFocus
Shell "C:\WINnt\explorer.exe C:\Documents and Settings\Administrator\My Documents", vbNormalFocus
因为win2000的目录是NT winXP的目录是Windows

Answer 5

主要是看你windows的安装目录的位置了如果是你的系统安装在D:\Windows
那就只能改为真实的目录了.Shell "D:\windows\explorer.exe", vbNormalFocus
Shell "D:\windows\explorer.exe C:\Documents and Settings\Administrator\My Documents", 
vbNormalFocus如果楼主有兴趣，可以参考一下API自动取得当前的WINDOWS系统目录，来获得相对的Explorer.exe的全路径。就可以了。对应API是 GetWindowsDirectory

Answer 6

算了，一并给你解答了算了。    Dim sTmp As String * 256        '存放结果的固定长度的字符串
    Dim nLength As Long             '字符串的实际长度
    Dim strExplorerPath as string
    
    '以下取得实际使用电脑系统上的WINDOWS系统目录
    nLength = GetWindowsDirectory(sTmp, 256) 'MAX_LEN)
    strExplorerPath = Left(sTmp, nLength) & "\explorer.exe "
    
    这个时候跟以前的一样执行就对了。
    Shell strExplorerPath ,vbNormalFocus    测试完毕，楼主你这20分真是超值啊！呵呵！
 
       Dim strExplorerPath as string
    MsgBox sTmp