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.