复制代码代码如下:
set ws = wscript.CreateObject("Wscript.Shell")
'打开windows文件夹
ws.run "%systemroot%\explorer.exe /e, %systemroot%"
'打开我的文档
ws.run "%systemroot%\explorer.exe"
'打开我的电脑
ws.run "%systemroot%\explorer.exe /e,"
'定位到notepad.exe所在目录，并选择notepad.exe
ws.run "%systemroot%\explorer.exe /select, %systemroot%\notepad.exe"

Windows 资源管理器的启动参数

Windows 资源管理器开关对创建根文件夹很有用：

Explorer [/e,][/root,<对象>,] [[<文件夹>]| [/select, <子对象>]]

/e 使用资源管理器视图（作用域和结果窗格视图）。默认 情况为“打开”视图（仅结果窗格视图）。

/root<对象> 指定在“一般”名称空间内用作资源管理器根目录的对
象。默认情况下为 Desktop 文件夹。

/select 打开父文件夹，选择指定的对象。

<子对象> “Windows 资源管理器”打开的文件夹或文件。如果使用 /select 选项，将突出显示子对象。 如果没有使用 /select 选项，则在“资源管理器”中打开 文件夹或文件。默认情况下为 root<对象>。

例如： Explorer /e, /root, \\Reports
在 \\Reports 下打开资源管理器窗口。

Explorer /select, C:\Windows\Calc.exe
在 C:\Windows 目录下打开文件夹（或激活已打开的文件 夹），并选择 Calc.exe。

Explorer /e, /root, \Source\Internal\Design\Users\David\Archive从 Archive 文件夹中打开一文件夹，这是创建一个复杂的、 远程存档文件夹的好办法。然后将指向此文件夹的链接 （\\Source\Internal\Design\Users\David\Archive） 放入“SendTo”文件夹中，以便快速定位文档。

在VB里调用Explorer

更简单啦，用Shell函数，如果觉得不爽，再用WinExec API函数，调用上面的命令行就可以了。

例如

复制代码代码如下:
Call Shell("Explorer /select, C:\Windows\Calc.exe",VBNormalFocus)

将在 C:\Windows 目录下打开文件夹（或激活已打开的文件 夹），并选择 Calc.exe。