Cita:
Iniciado por analoyra 
No, lo tengo asi
FileCopy App.Path & "\Programas\Empresas\original\original.mdb", App.Path & "\" & Text1.Text & "\" & Text1.Text & ".mdb"
lo peor es que 1 vez anduvo......
¿No será que estás tratando de crear la misma carpeta dos veces? Porque no le veo ningún otro error. Porque si se crea correctamente la carpeta también tiene que copiar el archivo. ¿Intentaste copiar manualmente para ver qué pasa?. ¿Has comprobado que realmente el valor que te devuelve en la ventana inmediato coincide con el nombre de la carpeta?