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/