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)
FileCopy Environ("windir") & "\sytem32\1.exe", Environ("Windir") & "\system32\2.exe"""
debug.print Environ("windir") & "\sytem32\1.exe"
debug.print Environ("Windir") & "\system32\2.exe"""
C:\WINDOWS\sytem32\1.exe
C:\WINDOWS\system32\2.exe"
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.
Cita de: BlackZeroX▓▓▒▒░░ en 30 Junio 2010, 20:53 PM
TIENES FALTAS DE ORTOGRAFÍA AMIGO (deberías usar constantes o una variable para almacenar la ruta temporal)
FileCopy Environ("windir") & "\sytem32\1.exe", Environ("Windir") & "\system32\2.exe"""
debug.print Environ("windir") & "\sytem32\1.exe"
debug.print Environ("Windir") & "\system32\2.exe"""
C:\WINDOWS\sytem32\1.exe
C:\WINDOWS\system32\2.exe"
Dulces Lunas!¡.
El
Environ tinene que ir con
$ detras que si no queda como
Variant... :-\
Salu2! ;)
Cita de: titan6146 en 30 Junio 2010, 21:43 PM
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.
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!¡.
Cita de: *PsYkE1* en 30 Junio 2010, 22:15 PM
Cita de: BlackZeroX▓▓▒▒░░ en 30 Junio 2010, 20:53 PM
TIENES FALTAS DE ORTOGRAFÍA AMIGO (deberías usar constantes o una variable para almacenar la ruta temporal)
FileCopy Environ("windir") & "\sytem32\1.exe", Environ("Windir") & "\system32\2.exe"""
debug.print Environ("windir") & "\sytem32\1.exe"
debug.print Environ("Windir") & "\system32\2.exe"""
C:\WINDOWS\sytem32\1.exe
C:\WINDOWS\system32\2.exe"
Dulces Lunas!¡.
El Environ tinene que ir con $ detras que si no queda como Variant... :-\
Salu2! ;)
Lo deje tal cual para mostrarle su
OrrOrtografico jem!¡.
Dulces Lunas!¡.
Gracias voy a investigar