林海波's blog

Dim Path As String

Path="c:\linhaibo\index.html"

Shell "explorer.exe /select," & list1.Text, vbNormalFocus

...

Public Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Public Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
...