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
Cita:
Desde ya muchas gracias y cualquier recomendacion es de gran ayuda 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
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