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

[RhinoBull]

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.

[Hack]

Example:

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