Path de Firefox busacada en el registro de window

[luciano]

A mi me funcionó, solo que la rama tenia un espacio acá >> \ FIREFOX.EXE\, y daba error:

Código:

Private Function Ruta() As String
'On Error Resume Next
Dim El_Objeto As Object
Set El_Objeto = CreateObject("WScript.Shell")
Ruta = El_Objeto.RegRead("HKEY_CLASSES_ROOT\Applications\FIREFOX.EXE\shell\open\command\")
If Ruta <> "" Then
Ruta = Left(Ruta, InStrRev(Ruta, "-") - 1)
End If
Set El_Objeto = Nothing

Shell Ruta
End Function

Private Sub Command1_Click()
Ruta
End Sub

saludos