Path de Firefox busacada en el registro de window

[LeandroA]

Buenas nesesito un favor si alguien me echa una mano, quiero saver la ruta donde se encuentra instalado Firefox.exe entonses decidi buscarlo en el registro de windows que supongo que los valores serian igual en las distintas pc donde ejecute el programa
Entonses me gustaria prueben el siguente codigo aver si les debuelbe la ruta exacta de Firefox ya que no se si tome el valor correcto en el registro

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_USERS\S-1-5-21-1708537768-1644491937-725345543-1003\Software\Mozilla\Mozilla Firefox\1.5.0.4 (es-ES)\Main\PathToExe")
Set El_Objeto = Nothing
End Function

Private Sub Form_Load()
MsgBox Ruta
End Sub

Desde ya muchas gracias y cualquier recomendacion es de gran ayuda

[marcos1979]

Nop, yo tengo otra version de FF y eso no me daría el valor correcto.
En la clave "HKEY_USERS\S-1-5-21-329068152-1383384898-1060284298-1003\Software\Mozilla\Mozilla Firefox" hay un valor "CurrentVersion" que indica la version, dentro de esta clave hay otra subclave y su nombre es la version ("1.5.0.1 (es-AR)" en mi caso), dentro de esta está Main y ahi el valor "PathToExe"

Los pasos serían:
1) Leer el valor de la version "HKEY_USERS\S-1-5-21-329068152-1383384898-1060284298-1003\Software\Mozilla\Mozilla Firefox\CurrentVersion"
2) "Armar" la ruta completa donde se encuentra el valor "PathToExe" asi: "HKEY_USERS\S-1-5-21-329068152-1383384898-1060284298-1003\Software\Mozilla\Mozilla Firefox\ACA VA LA VERSION LEIDA\Main\PathToExe"

Un saludo

[LeandroA]

hola gracias por responder, haceme el favor de provar de esta manera aver si funciona

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
End Function

ya que con esta no hace referencia a la vercion

[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

[marcos1979]

Si, ahi tambien esta la ruta. No se cual será la manera correcta, es cuestion de probar bajo distintas circunstancias para ver que pasa.

Un saludo