用VB打开文件夹并选中指定文件（shell）

我们在使用电脑时，用户常常会有需求打开一个指定文件夹，并自动选中某个指定文件。

比如在用浏览器下载文件完成后，可以打开所在文件夹，这就用到这个功能。可以看到这个功能还是非常的实用的。

那么如何实现这个功能呢？

其实非常的简单，那就是要用shell函数了，这个函数在我的公众号——大讲堂——shell方法中是有详细学习课程的（不清楚的读者可以先去了解一下，以免本节课程看不懂）。不过那节课程中，我们主要针对shell命令直接打开文件的功能做了学习。

那么这节课就是对shell命令的一个扩展：如何用shell命令打开文件夹，以及实现打开文件夹后选中指定文件的功能。

一、打开指定文件夹

需求：打开E:\test文件夹（E盘下面建了一个名为test的文件夹）。

实现：

Private Sub Command1_Click()
    Dim x As Long
    x = Shell("explorer.exe E:\test", 1)
End Sub

说明：
1，这里实现方式与直接打开指定文件的语法是一样的，只是这里路径不用写到文件，只需要写到文件夹即可。
2，shell方法第一个参数是字符串表达式，第二个参数是打开后的显示方式

二，打开文件夹，并选中指定文件

需求：打开打开E:\test文件夹，并选中“222.pptx”这个文件。

文件夹内容如图：

实现代码：

Private Sub Command1_Click()    
    Dim x As Long    
    x = Shell("explorer.exe /select,E:\test\222.pptx", 1)
End Sub

运行效果：
单击测试按钮后，程序将自动弹出test文件夹，并标选中222.pptx文件。（但不打开）。

这里再解释一下这句代码：

Shell("explorer.exe /select,E:\test\222.pptx", 1)
1

1，explorer.exe 会自动使用默认软件来打开后面的文件。

2，/select 表示要选中指定文件，而不是直接打开，如果不写则表示直接打开文件。

3，第二个参数1表示打开方式，有多个参数可以设置，具体可以我参考另外一篇关于shell的文章。