我们在使用电脑时，用户常常会有需求打开一个指定文件夹，并自动选中某个指定文件。
 
比如在用浏览器下载文件完成后，可以打开所在文件夹，这就用到这个功能。可以看到这个功能还是非常的实用的。
 
那么如何实现这个功能呢？
 
其实非常的简单，那就是要用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，explorer.exe 会自动使用默认软件来打开后面的文件。
 
2，/select 表示要选中指定文件，而不是直接打开，如果不写则表示直接打开文件。
 
3，第二个参数1表示打开方式，有多个参数可以设置，具体可以我参考另外一篇关于shell的文章。
 

 
Private Sub CmdOK_Click()
 
If TextPoNum.Text = "" Then
 
MsgBox "请输入你需要打开的EXCEL文件！"
 
Else
 
Dim oleExcel As Object
 
Dim PoNum As String
 
Dim a As String
 
Set oleExcel = CreateObject("Excel.Application")
 
a = Left(TextPoNum.Text, 5)
 
With oleExcel
 
With .Application.FileSearch
 
.NewSearch
 
.LookIn = "c:\新建文件夹\a&*"
 
.SearchSubFolders = True
 
.FileName = TextPoNum.Text & "*.xls"
 
If .Execute() > 0 Then
 
oleExcel.Visible = True
 
oleExcel.Workbooks.Open .FoundFiles(1)
 
Else
 
MsgBox "没有找到符合条件的文件."
 
End If
 
End With
 
End With
 
End If
 
这样为什么打不开

 
 
Private Function TreeSearch(ByVal sPath As String, ByVal sFileSpec As String) As Long
     DoEvents
     Static Files As Long
     Dim sDir As String
     Dim sSubDirs() As String
     Dim Index As Long
     Dim sFiles() As String
     
     If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
     '获取文件名和数目
     
     sDir = Dir(sPath & sFileSpec)
     
     Do While Len(sDir)
     
        Files = Files + 1
        ReDim Preserve sFiles(1 To Files)
        sFiles(Files) = sPath & sDir
        
        '显示到列表
        List1.AddItem sFiles(Files)
        List1.ListIndex = List1.ListCount - 1
        
        sDir = Dir
     Loop
     '获取文件夹名称
     Index = 0
     sDir = Dir(sPath, vbDirectory)
     Do While Len(sDir) 'sDir <> ""
         If sDir <> "." And sDir <> ".." Then
             If GetAttr(sPath & sDir) And vbDirectory Then
                 Index = Index + 1
                 ReDim Preserve sSubDirs(1 To Index)
                 sSubDirs(Index) = sPath & sDir & "\"
             End If
         End If
         sDir = Dir
     Loop
     '递归调用，获取子文件夹目录
     For Index = 1 To Index
         Call TreeSearch(sSubDirs(Index), sFileSpec)
     Next Index
     TreeSearch = Files
 End Function
 
 
 Private Sub Command1_Click()
     
     Print TreeSearch(Text1.Text, Combo1.Text)
     
 End Sub
 
 
 Private Sub Command2_Click()
     End
 End Sub
 
 
 'Private Sub Command3_Click()
 '    List1.Clear
 'End Sub
 
 
 Private Sub Form_Load()
     Text1.Text = "D:\vb小程序\vb实例"
     Dim spec As Variant
     spec = Array("*.*", "*.exe", "*.vbp")
     Combo1.Text = spec(0)
     For i = 0 To UBound(spec)
         Combo1.AddItem spec(i)
     Next i
 End Sub
 

 
 
 
  
     IDE : Visual Basic 6.0精简版
       OS : Windows 10 x64
typesetting : Markdown
        blog : my.oschina.net/zhichengjiu
       gitee : gitee.com/zhichengjiu
 
 
 
 
 
 
 
GUI
 
 
 
 
 
 
 
code
 
 
Private Sub Command1_Click()

Shell "explorer D:\dir-demo-2019-07-14", 1

End Sub

 
 
 
 
 
result
 
 
 
 
 
 
 
resource
 
 
[ 文档 ] docs.microsoft.com/zh-cn/previous-versions/visualstudio/visual-basic-6/visual-basic-6.0-documentation
[ .NET ] dotnet.microsoft.com
[ 平台 ] www.oschina.net
[ 平台 ] gitee.com
 
 
 
 

 
感谢帮助 志成就 的人们。
 VB6.0已经过时，想深入学习它的话，还望三思而后行。
 喜欢Windows系统的同学，可以了解一下 .NET 和 .NET Core。
该博文仅可用于测试与参考。
 
 
转载于:https://my.oschina.net/zhichengjiu/blog/3073966