Con este procedimiento consigo copiar las librerias hasta aca todo va bien
Private Sub COPIAR()
On Error GoTo Salto
orig = App.Path & "\MSWINSCK.OCX" ' Aquí pones al ruta existente
dest = "C:\WINDOWS\SYSTEM32\MSWINSCK.OCX" ' El nombre de la ruta destino
Dim fso As FileSystemObject
Set fso = New FileSystemObject ' Se crea la instancia
'Copiamos un fichero
fso.CopyFile orig, dest
Salto:
If Err Then MsgBox (Error(Err))
Set fso = Nothing
End Sub
pero no se como aplicar este comando para registrar las librerias
regsvr32 [/u] [/s] [/n] [/i[:líneaDeComandos]] nombrelibreria.DLL o OCX
que esta en este link
http://www.portalfox.com/index.php?name=News&file=article&sid=2444Gracias por su colaboracion
nos vemos