28/06/2006, 21:38
|
 | | | Fecha de Ingreso: abril-2004 Ubicación: 62º 06' 18" O / 33º 07' 47" S
Mensajes: 331
Antigüedad: 20 años, 1 mes Puntos: 1 | |
Espero te sirva
Código:
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "C:\Origen", "C:\Destino", False 'Cambia False por True para sobreescribir
MsgBox "Ya se copió todo"
Un saludo
__________________
Marcos
El dinero no da la felicidad... démelo y sea feliz!!! |