VB如何执行命令 打开资源管理器 并选择指定的文件夹或文件

 

 

Option Explicit

Private Sub Command1_Click()

    Dim cmd As String
    '*打开资源管理器 焦点 在【MyDotNetFiles】文件夹
    cmd = "cmd /k explorer /select,d:\MyDotNetFiles"
    '*打开资源管理器 焦点 在【sn_office2007.txt】文件
    'cmd = "cmd /k explorer /select,d:\sn_office2007.txt"
    Call Shell(cmd)

End Sub

 

        作者：段利庆（Lee） QQ：14035344

          一卡通水电暖专家 http://www.duanliqing.kudos.cc/