Ayuda con filelistbox

[muñeca]

Hola a todos tengo un problema como puedo hacer para abrir un archivo escogido de un filelistbox .Estoy utilizando esta funcion pero se me abre la ventana con el archivo quisiera abrirlo directamente.
ShellExecute 0, "Open", Dir1.Path, File1.FileName, "", vbNormalFocus
de antemano gracias.

[vbx3m]

Prueba con este codigo:

Código:

If Mid(File1.Path, Len(File1.Path), 1) = "\" Then
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & File1.Path & File1.FileName, vbNormalFocus)
Else
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & File1.Path & "\" & File1.FileName, vbNormalFocus)
End If

Asi podras abrir archivos de cualquier extension...

[muñeca]

Iniciado por vbx3m

Prueba con este codigo:

Código:

If Mid(File1.Path, Len(File1.Path), 1) = "\" Then
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & File1.Path & File1.FileName, vbNormalFocus)
Else
    ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & File1.Path & "\" & File1.FileName, vbNormalFocus)
End If

Asi podras abrir archivos de cualquier extension...

Gracias amigo me fue de gran ayuda tu codigo