برای لیست کردن از filelistbox استفاده کن
البته از api ها هم میتونی enum کنی
برای باز شدن هم ازدستور
Private Sub File1_DblClick()
Shell "cmd /c " & Chr(34) & File1.Path & "\" & File1.List(File1.ListIndex) & Chr(34)
End Sub
البته این کد برای آماتور ها است
برای کد های پیشرفته تر میتونین از
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
استفاده کنین که اگه آماتور هستین پیشنهاد نمیکنم