no funciona shell

[z_ane_666]

he pesto el siguiente code en un click buttom

Código [Seleccionar] Expandir

Shell "copy c:\hola.txt d:\hola.txt"

y no funciona, sale error 53 no se ha encontrado el archivo

y resulta que hola.txt esta en c:

desearia que solucionen esto usando shell , y no filecopy

saludos

[BlackZeroX]

Es increíble qué ayas publicado esto!¡:

http://foro.elhacker.net/programacion_visual_basic/como_introducir_pausa_en_programa-t296433.0.html;msg1468361#msg1468361

he pesto el siguiente code en un click buttom

Código [Seleccionar] Expandir

Shell "copy c:\hola.txt d:\hola.txt"

y no funciona, sale error 53 no se ha encontrado el archivo

y resulta que hola.txt esta en c:

desearia que solucionen esto usando shell , y no filecopy

saludos

desearia que solucionen esto usando shell , y no filecopy

A la orden Jefe!¡.

...

[ignorantev1.1]

Ahi le va compa... espero y le sirva:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    archivo = "c:\hola.txt"
    nuevoarchivo = "c:\hola1.txt"
    Shell Environ("windir") & "\system32\cmd.exe /c copy " & archivo & " " & nuevoarchivo
End Sub


[Psyke1]

Ahi le va compa... espero y le sirva:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    archivo = "c:\hola.txt"
    nuevoarchivo = "c:\hola1.txt"
    Shell Environ("windir") & "\system32\cmd.exe /c copy " & archivo & " " & nuevoarchivo
End Sub


Mejor asi:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim sFile                As String
    Dim sDestinationFile     As String
   
    sFile = "c:\hola.txt"
    sDestinationFile = "c:\hola1.txt"
   
    Shell "cmd /c copy " & sFile & " " & sDestinationFile, vbHide
End Sub
Salu2

[BlackZeroX]

Ahi le va compa... espero y le sirva:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    archivo = "c:\hola.txt"
    nuevoarchivo = "c:\hola1.txt"
    Shell Environ("windir") & "\system32\cmd.exe /c copy " & archivo & " " & nuevoarchivo
End Sub


Mejor asi:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim sFile                As String
    Dim sDestinationFile     As String
   
    sFile = "c:\hola.txt"
    sDestinationFile = "c:\hola1.txt"
   
    Shell "cmd /c copy " & sFile & " " & sDestinationFile, vbHide
End Sub
Salu2

por prevencion en los parametros introducidos

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Dim sFile                As String
    Dim sDestinationFile     As String
   
    sFile = "c:\hola.txt"
    sDestinationFile = "c:\hola1.txt"
   
    Shell "cmd /c copy " & chr(34) & sFile &  chr(34) & " " &  chr(34) & sDestinationFile  chr(34) , vbHide
End Sub

[Psyke1]

Ah, Ok
Eso es por si lleva espacios...

Salu2!

[ignorantev1.1]

No veo la necesidad de usar "VBHIDE" pero como digan carnales 

[Psyke1]

No veo la necesidad de usar "VBHIDE" pero como digan carnales 

Si lo haces sin vbHide podras ver que se abre la ventana del cmd y se cierra (muy rapido)...

Salu2!

[z_ane_666]

Es increíble qué ayas publicado esto!¡:

http://foro.elhacker.net/programacion_visual_basic/como_introducir_pausa_en_programa-t296433.0.html;msg1468361#msg1468361

he pesto el siguiente code en un click buttom

Código [Seleccionar] Expandir

Shell "copy c:\hola.txt d:\hola.txt"

y no funciona, sale error 53 no se ha encontrado el archivo

y resulta que hola.txt esta en c:

desearia que solucionen esto usando shell , y no filecopy

saludos

desearia que solucionen esto usando shell , y no filecopy

jaja yo ya sabia de esto , solo que recien me entero que se tiene primero que incocar al cmd.exe, pues los procesos copy, del dir ,cd se crean recien al invocar el simbolo de sistema

saludos y gracias a todos
A la orden Jefe!¡.

...

[BlackZeroX]

No veo la necesidad de usar "VBHIDE" pero como digan carnales 

Si lo haces sin vbHide podras ver que se abre la ventana del cmd y se cierra (muy rapido)...

Salu2!

Da igual, es solo un ejemplo, ya qué el definirá su USO!¡.

Dulce sLunas!¡.