No se encuentra ruta de acceso

[Enea]

Código:

Private Sub Mnu_Cerrar_Click()

Dim sCmd As String
Dim sShell As String

sCmd = "copy C:\Archivos de programa\MySQL\MySQL Server 4.1\data\gestion C:\Archivos_antiguos\"
sShell = Environ$("COMSPEC")
result = Shell(sShell & "/c" & sCmd, vbHide)

End Sub

Me da error "No se ha encontrado la ruta de acceso", creo que puede ser pq no reconoce los espacios (Archivos de programa) pq lo he probado en MSDOS y me hace lo mismo, puedo acceder a la carpeta poniendo c:\cd Archivos de programa pero no poniendolo directamente. Como podría solucionarlo?

[Enea]

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\"