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?