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

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

Puedes hacerlo con el objeto FileSystemObject:
Primero has una Referencia a Microsfot Scripting Runtime
Segundo Declaras tus variables:
Dim fso As New FileSystemObject, fil As Folder
Tercero en un boton o en el evento KeyPress (ya tu ves) programas esto:

Private Sub Command1_Click()
Set fil = fso.GetFolder("C:\Cob\")
fil.Copy ("C:\Carpeta\Directorio\")
End Sub

Y listo , espero te sirva.