vb 打开文件夹 获得焦点

Question

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

Answer 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

Answer 2

'用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这个文件。

本回答被提问者采纳