Respaldar una carpeta

[ideasking]

Hola amigos, alguién me puede ayudar con la rutina para guardar una copia de un directorio en otro directorio, es decir, tengo una aplicación que cree y quisiera que mediante un botón yo pueda guardar una copia del directorio completo donde guardo los archivos del programa en otra ruta, para que en caso de que se borren por alguna razón, pueda tener un respaldo de los mismos. Yo se hacer por ejemplo la copia de un archivo especifico mediante:

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal _
lpExistingFileName As String, ByVal lpNewFileName As String, ByVal _
bFailIfExists As Long) As Long

A = CopyFile("c:\miarchivo.Zip", "c:\micarpeta\miarchivo.Zip", False)
If A Then
MsgBox "Por seguridad se ha generado una copia de este archivo en C:\COPIAFLETES"
Else
MsgBox "El archivo no ha sido copiado por error!"
End If


Quisiera hacer lo mismo pero copiando no un archivo sino toda la carpeta.

Gracias.

[lokoman]

Hola!!
Mira este codigo a ver si te sirve:

http://myfreefilehosting.com/f/5b8a252aee_0.01MB

Es un mini proyecto, debes tener una referencia a Microsoft Scripting Runtime y poner la ruta fuente y destino, nos cuentas.

[ideasking]

Iniciado por lokoman

Hola!!
Mira este codigo a ver si te sirve:

http://myfreefilehosting.com/f/5b8a252aee_0.01MB

Es un mini proyecto, debes tener una referencia a Microsoft Scripting Runtime y poner la ruta fuente y destino, nos cuentas.

No sirve el link

[erbuson]

Acabo de probarlo y funciona perfectamente, si revisas la pantalla a la que te envía en la parte de abajo, te indica Click Here To Download

Saludos