Copiar archivos

Existen dos maneras de hacer lo que dices
1º Con la dll Microsoft Scripting Time
2º Con la función filecopy
Ej:
dir("*.*")
archivo = dir
Do while archivo <> ""
filecopy archivo, "C:\" & archivo
archivo = dir
Loop
La dll es mas facil de utilizar y se puede utilizar en vbscript
Dim fichero As FileSystemObject
Set fichero = New FileSystemObject
fichero.CopyFolder ("C:\a","C:\b")
La pega es que la dll no se puede (no sale ningún cuadro de diálogo, ni nada)
Si quieres ver algún ejemplo más de esto consulta:
http://guille.costasol.net/indice.asp