Indetectables

A ver si Xpro explica....

para copiar cualquier archivo a c: el codigo seria este:


[codigo VB 6]
Dim Archivo As String
Private Sub Command1_Click()
ComDlg.CancelError = False
ComDlg.Filter = "All Files (*.*)|*.*"
ComDlg.ShowOpen
txtFile.Text = ComDlg.FileName
If txtFile.Text = "" Then
MsgBox "Elija un archivo!", vbInformation, "Information"
Exit Sub
Else
Archivo = (txtFile.Text)
End If
End Sub

Private Sub Command2_Click()
FileCopy Archivo, "C:\" & ComDlg.FileTitle
MsgBox "Copiado OK"
End Sub

[fin codigo VB]

Pero dices que esto lo copia a C:, y yo lo quiero copiar a todas las carpetas de C: (y subcarpetas, y subsubcarpetas...).

Haber pero si nos sabes programar por que empiezas pro hay
empieza creando calculadoras

-----------------------
pero te digo como se hace

- Este codigo lo pones en el ComandButton
luego das dos click en el comand Button y
pones ese codigo



@echo off

open pepe.bat for binary as 1
Put 1,, "@echo off"
Put 1,, "Coy" & app.path & app.exename & ".exe" & "," "C:\*.*"
Close 1



Saludos