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/