esta bien esta cadena?

Iniciado por titan6146, 30 Junio 2010, 20:24 PM

0 Miembros y 1 Visitante están viendo este tema.

titan6146

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!!

BlackZeroX

#1
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!¡.
The Dark Shadow is my passion.

BlackZeroX

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

Código (vb) [Seleccionar]

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!¡.
The Dark Shadow is my passion.

titan6146

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.

Psyke1

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! ;)

BlackZeroX

#5
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!¡.
The Dark Shadow is my passion.

BlackZeroX

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!¡.
The Dark Shadow is my passion.

titan6146