Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'测试
Private Sub Command1_Click()
selectitem "e:\mc\mmtest.jpg"
Sleep 10000
selectitem "e:\mc"
End Sub
Private Sub selectitem(ByVal itempath As String)
On Error Resume Next
Shell "explorer /select, " + itempath, vbNormalFocus
End Sub