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
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。