在VB里利用Explorer.exe的过程

 

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,"
'打开当前目录
set wsh = wscript.CreateObject("Wscript.Shell")
'以下三个语句得到的结果一样,打开的都是当前目录
wsh.Run "%systemroot%\explorer.exe /e," & App.Path
'wsh.Run "%systemroot%\explorer.exe /e," & iw1.CurrentDirectory
'wsh.Run "%systemroot%\explorer.exe /e," & CurDir
'打开任务管理器
SendKeys "^+{ESC}"

Windows 资源管理器的启动参数
Windows 资源管理器开关对创建根文件夹很有用：
Explorer [/e,][/root,<对象>,] [[<文件夹>]| [/select, <子对象>]]
Explorer.exe 命令中使用以下参数。
参数 结果
/n 为默认选择内容打开一个新的单窗格窗口。
默认选择内容通常是安装 Windows 的驱动器的根目录。
/e 使用默认视图启动 Windows 资源管理器。
/e, <object> 使用默认视图启动 Windows 资源管理器并把焦点定位在指定文件夹上。
/root, <object> 打开指定对象的一个窗口视图。
/select, <object> 打开一个窗口视图，指定的文件夹、文件或
程序被选中。

示例

以下示例说明了 Windows 资源管理器参数的用法。 Explorer /n
此命令使用默认设置打开一个资源管理器窗口。显示的内容通常是安装 Windows 的驱动器的根目录。
Explorer /e
此命令使用默认视图启动 Windows 资源管理器。
Explorer /e,C:\Windows
此命令使用默认视图启动 Windows 资源管理器，并把焦点定位在 C:\Windows。
Explorer /root, C:\Windows\Cursors
此命令启动 Windows 资源管理器后焦点定位在 C:\Windows\Cursors folder。此示例使用
C:\Windows\Cursors 作为 Windows 资源管理器的“根”目录。
备注：请注意命令中“/root”参数后面的逗号。
Explorer /select, C:\Windows\Cursors\banana.ani
此命令启动 Windows 资源管理器后选定“C:\Windows\Cursors\banana.ani”文件。
备注请注意命令中“/select”参数后面的逗号。
Windows 资源管理器参数可以在一个命令中进行组合。以下示例显示了 Windows 资源管理器命令行参数的组合。
Explorer /root, [url=file://\\server\share]\\server\share[/url], select, Program.exe
此命令启动 Windows 资源管理器时以远程共享作为“根”文件夹，而且 Program.exe 文件将被选中。

打开回收站：
Shell "explorer ::{645FF040-5081-101B-9F08-00AA002F954E}", vbNormalFocus
　
打开我的电脑：
Shell "explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus
　
打开控制面板：
Shell "explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}", vbNormalFocus
　
打开计划任务：
Shell "explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{D6277990-4C6A-11CF-8D87-00AA0060F5BF}", vbNormalFocus
　
打开打印机：
Shell "explorer ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{2227A280-3AEA-1069-A2DE-08002B30309D}", vbNormalFocus
　
打开我的文档(刚发现)：
shell "explorer ::{450d8fba-ad25-11d0-98a8-0800361b1103}" , vbNormalFocus