Como copiar archivos de un directorio a otro en Visual Basic???

[Eddo]

Hola!, alguien sabe como puedo hacer para copiar todos los archivos de

un directorio a otro directorio distinto, en visual basic,( o java por

ultimo), pero sin nombrar los archivos de a uno, sino que nombrando el

directorio.
Aca tengo un ejemplo pero no funciona. Nose que cosa debo cambiar para

arreglarlo.

miArchivo = Dir("C:\cob")
Do While miArchivo <> ""
FileCopy miArchivo, "C:\carpeta\directorio"
miArchivo = Dir
Loop


Muchas Gracias para quien desee ayudarme.

Se despide atte
GABRIEL