Cita:
Iniciado por analoyra 
lo hago, pero le pongo esto
? FileCopy App.Path & "Programas\Empresas\Original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
y me muestra lo mismo.
si le pongo ? App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
me muestra la ruta bien, pero con espacios como juan \juan .mdb
¿Verificaste que la carpeta creada tenga también ese espacio?