Título: Registración de Controles Publicado por: Cj2009z en 2 Agosto 2007, 06:09 am Hola como estan, veran tengo que registrar un control .ocx pero no encuentro la manera de que me lo registre de una vez en la maquina yo tengo esto pero me tira error:
Const cNombreFichero As String = "\Control\Control.ocx" 'dentro de una carptea Dim strRutaSistema As String Dim strRutaFichero As String strRutaSistema = Environ("windir") & "\System32\" strRutaFichero = Application.CurrentProject.Path & "\" & cNombreFichero 'aqui me tira el error Shell strRutaSistema & _ "\Regsvr32.exe /s " & VBA.Chr(34) & _ Application.CurrentProject.Path & "\" & VBA.Chr(34), vbHide Call Shell("\Setup.exe", vbNormalFocus) 'llama el programa de instalación al finalizar la registración End gracias por su ayuda. Título: Re: Registración de Controles Publicado por: wACtOr en 2 Agosto 2007, 12:32 pm prueba a cambiar
Código por Código
Creo que ese es el cproblema Título: Re: Registración de Controles Publicado por: Cj2009z en 20 Agosto 2007, 07:37 am gracias por la respuesta ya encontre la solución es: Const cNombreFichero As String = "\Control\Control.ocx" 'dentro de una carptea
Dim strRutaSistema As String Dim strRutaFichero As String strRutaSistema = Environ("windir") & "\System32\" strRutaFichero = Application.Path & "\" & cNombreFichero 'aqui me tira el error Shell strRutaSistema & _ "\Regsvr32.exe /s " & VBA.Chr(34) & _ Application.Path & "\" & VBA.Chr(34), vbHide Call Shell("\Setup.exe", vbNormalFocus) 'llama el programa de instalación al finalizar la registración End |