hola gracias por responder, haceme el favor de provar de esta manera aver si funciona
Cita: 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