打开文件夹的几种办法

本实例显示使用API函数，Shell 对象，WshShell 对象 和 EXPLOER.EXE 四种办法来分别打开一个文件夹。

窗口代码如下：

'用户昵称: 留下些什么
'个人简介: 一个会做软件的货代
'CSDN网址：https://blog.csdn.net/zezese
'电子邮箱：31319180@qq.com


Option Explicit

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
Private Const SW_NORMAL As Long = 1

Dim strFolder As String


Private Sub Form_Load()
    strFolder = "C:\Windows"
    
End Sub

Private Sub Command1_Click()
    '这个最简单，不会重复打开
    
    ShellExecute 0, "open", strFolder, "", "", SW_NORMAL
    
End Sub

Private Sub Command2_Click()
    
    '需要先引用 Microsoft Shell Controls And Automation

    Dim MyShell As New Shell32.Shell
    MyShell.Open strFolder

End Sub

Private Sub Command3_Click()

    '需要先引用 Windows Script Host Object Model

    Dim wshell As New WshShell
    wshell.Run strFolder
    
End Sub

Private Sub Command4_Click()
    '会运行一个新explorer.exe进程，反应比较慢
    
    Call Shell("explorer.exe " & strFolder, vbNormalFocus)
End Sub