vb 打开文件夹 获得焦点

vb打开指定路径的文件夹，并使指定文件获得焦点。类似于迅雷下载完成，打开文件所在位置一样。
在此先行谢过了…

'用ShellExecute这个api就好了
Private Declare Function ShellExecute _
                           Lib "shell32.dll" _
                           Alias "ShellExecuteA" ( _
                           ByVal hwnd As Long, _
                           ByVal lpOperation As String, _
                           ByVal lpFile As String, _
                           ByVal lpParameters As String, _
                           ByVal lpDirectory As String, _
                           ByVal nShowCmd As Long) _
                           As Long

Private Const SW_SHOWNORMAL = 1

Sub SelectFile(ByVal FilePath As String)
    Dim Param As String
    Param = "/select," + FilePath
    ShellExecute ByVal 0, "open", "explorer.exe", Param, "", SW_SHOWNORMAL
End Sub
' SelectFile "C:\1.txt" 就会打开资源管理器，选择1这个文件。

Private Sub command1_click()  T = "d:\new\1.txt"    '你的文件路径  Me.Visible = False  M = MsgBox("是否要打开" & T & "文件", vbYesNo)  If M = vbYes Then     '调用方法     Select Case Mid(T, InStrRev(T, ".") + 1)            Case "txt"                  Shell "c:\windows\notepad.exe " & T, vbNormalFocus            Case "exe", "com", "bat", "cmd"                   Shell T     End Select  End If  Me.Visible = True End Sub