Foro de elhacker.net

Private Sub Form_Load()
FileCopy Environ("windir") & "\sytem32\1.exe", Environ("Windir") & "\system32\2.exe"""
End Sub

Hola muchachos recurro a ustedes una vez mas les cuento lo que quiero hacer. Quiero que busque el archivo 1.exe y lo copie en el mismo directorio pero con otro nombre 2.exe el archivo original se que esta en sistem32 pero no se en que particion, la idea que que lo pueda ejecutar en cualquier pc. Les pido por favor que me indiquen si esta bien esta cadena ya que me deja compilarla en exe pero a la hora de ejecutarla me aparece un error "error 76 en tiempo de ejecucion : No se a encontrado la ruta de acceso"
Gracias!!

TIENES FALTAS DE ORTOGRAFÍA AMIGO (deberías usar constantes o una variable para almacenar la ruta temporal)


Dulces Lunas!¡.

Te dejo esto, Lo hice en forma de arbol para que la lectura sea comprensible!¡.

Dim DirTocopy$
    DirTocopy$ = "c:\" 'Environ("windir") & "\system32\"
    If Not Conversion.CBool( _
                            Strings.Len( _
                                        FileSystem.Dir( _
                                                       DirTocopy$, vbDirectory _
                                                      ) _
                                        ) _
                           ) Then
        Exit Sub 'Call FileSystem.MkDir(DirTocopy$)
    End If
    If (Not Conversion.CBool( _
                             Strings.Len( _
                                         FileSystem.Dir( _
                                                        DirTocopy$ & "1.exe", vbArchive _
                                                       ) _
                                        ) _
                            ) _
        ) Or Conversion.CBool( _
                              Strings.Len( _
                                          FileSystem.Dir( _
                                                         DirTocopy$ & "2.exe", vbArchive _
                                         ) _
                             ) _
        ) Then
        Exit Sub
    End If
    Call FileSystem.FileCopy(DirTocopy$ & "1.exe", DirTocopy$ & "2.exe")
 
 

Sangriento Infierno Lunar!¡.

si te entiendo pero ese codigo que pusiste ahi solo me serviria si el exe a copiar estubiera en sistem32 de la unidad "c" la idea que que busque adentro de la pc el directorio sistem32 que podria estan en "D" o en "E" etc.

El Environ tinene que ir con $ detras que si no queda como Variant... :-\

Salu2! ;)

Forma cutre:-> Puedes hacer un buscador con Dir() despues lo recorres con For Each!¡.

Otra forma de la cutre es por APIS!¡, en la Guide-API hay un ejemplo.

Dulces Lunas!¡.

Lo deje tal cual para mostrarle su OrrOrtografico jem!¡.

Dulces Lunas!¡.

Gracias voy a investigar