Foro de elhacker.net

Estimado la pregunta es bien sencilla, puedo copiar una dll a la carpeta system32 a través de vb6, intente con:

FileCopy "C:\ButtonXp.ocx", "C:\Windows\System32\ButtonXp.ocx"

pero simplemente no copia nada, ni siquiera muestra error.

Intenté con otro código:

Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize _
As Long) As Long
Private Sub Form_Load()
    Dim buf As String * 256
    Dim return_len As Long
 
    return_len = GetSystemDirectory(buf, Len(buf))
    lblSystemDirectory.Caption = Left$(buf, return_len)
 
 
 
FileCopy "C:\ButtonXp.ocx", _
lblSystemDirectory.Caption & "\" & "ButtonXp.ocx"
End Sub
 

y tampoco, se puede hacer o estoy errando en algo.

gracias por su orientación amigos.

Lo mas probable es que tu código no tenga nada que ver. ¿Qué sistema operativo estás usando? estás usando las políticas del UAC de Windows? tienes permisos de administración?, recuerda que un usuario que no es administrador no puede intervenir en ese directorio.

Has intentado con la ruta c:\\... con doble slash?

Debe ser algo del sistema operativo, tengo windows 10, estoy en la cuenta de administrador y ejecuto el programa con permisos de administrador, agregue con el doble slash pero no pasa nada.  :P

Has probado usando CopyFile/GetLastError ?

hola, mira este articulo, te puede servir en algo, yo he copiado desde vb6 a directorios especiales de windows 7/8/8.1 y funciona bien, en realidad la aplicación tiene que estar corriendo como administrador ya sea por medio de un archiovo manifest que es lo más común, pero bueno espero que te sirva:

http://www.recursosvisualbasic.com.ar/htm/listado-api/120-copiar-archivo-progreso.htm (http://www.recursosvisualbasic.com.ar/htm/listado-api/120-copiar-archivo-progreso.htm)