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.
prueba a cambiar Application.CurrentProject.Path por App.Path
Creo que ese es el cproblema
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