Visual Basic - copiar varios archivos

como se hace para copiar una carpeta entera a otra? es decir para hacer una backup de las bases de datos antes de salir de la aplicacion

yo hago lo siguiente y no funciona

Dim ArchOrigen, ArchDestino
ArchOrigen = "c:\manaca~1\*.mdb"
ArchDestino = "c:\resguardo\*.mdb" '
FileCopy ArchOrigen, ArchDestino

que en realidad no es mas ni menos que el ejemplo de visual pero resulta que no funciona como esta ahi, funciona solamente si le pongo especificamente un nombre de archivo en origen y destino si no no fucniona.
pero yo necesito que me copie todo lo que tenga extension mdb

alguien puede ayudarme>?

gracias
mariel

dices que todo lo que tenga extencion mdb
necesitas hacer un loop en el directorio que busques los archivos .mdb

algo asi : ejemplo

Dim sFile As String
sFile = Dir("c:\" & "*.mdb", vbArchive)
Do While sFile <> ""
MsgBox sFile
sFile = Dir()
Loop

dentro del loop ("bucle", "ciclo") pones ya lo que desees hacer con el archivo

maCo

Otra solución válida (y que yo recomiendo) es utilizar el objeto FileSystemObject. Para usarlo tienes que añadir al proyecto la referencia Microsoft Scripting Runtime Library (creo que era así, si no, busca algo parecido). El objeto FileSystemObject te facilita muchísimo la tarea de trabajar con ficheros y directorios. P.ej:

Dim fs as New FileSystemObject

call fs.CopyFile( "C:\*.TXT","D:\" ) ' Copiaria todos los TXT
call fs.CopyFolder( "C:\MiDirectorio","D:\" ) ' Copiaria todo el directorio

Ese objeto te proporciona muchisimas funciones utiles. Te recomiendo que le eches un vistazo y practiques un poco. Salud...

Excelente respuesta muchas gracias