Código:
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? 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