Al final lo hago con otro código que me funciona bastante bien y es más sencillo...
Por si alguien lo necesita...
Código:
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.CopyFile "c:\Archivos de programa\MySQL\MySQL Server 4.1\data\gestion\*.*", "C:\Archivos_antiguos\"