open file filelistbox

[chris1990]

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

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