rainstormmaster的blog
rainstormmaster的blog

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

posted on 2006-01-26 21:39  学剑学诗两不成  阅读(1356)  评论(0编辑  收藏  举报