open file filelistbox

I have this code, i am making a file explorer. How do i get it to open the file i click on when i double click it. I have got the path right as it shows in a msgbox.

I tried Shell strFullPath, VbNormalFocus

Code:

---

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub cmdMask_Click()
    File1.Pattern = txtMask.Text
End Sub

Private Sub File1_DblClick()
    Dim strFullPath As String
   
    strFullPath = Dir1.Path
   
    If Right$(Dir1.Path, 1) <> "\" Then strFullPath = strFullPath & "\"
   
    strFullPath = strFullPath & File1.FileName
   
    MsgBox strFullPath
    Shell strFullPath 'This part dosent work
End Sub

---

Thanks in advance Chris1990

Not every file type can be shelled using the Shell function.
If you try to shell text file you would need to specify associated program like the NOTEPAD:

Shell "notepad c:\test.txt" and so on...
In you case it may look like:

Shell "notepad " & strFullPath

However better way is to use ShellExecute api function that resolves the associated program automatically.
Search forum for samples.

Example:

vb Code:

Option Explicit
 
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
 
Private Sub Command1_Click()
ShellExecute Me.hwnd, vbNullString, File1.FileName, vbNullString, "C:\", SW_SHOWNORMAL
End Sub