Muchas gracias por responder
ecfisa.
Funciona perfecto con una pequeña modificación, porque la ruta debe incluir tanto los estudios como las series y las imágenes.
Utilizé la función que me enviaste y el siguiente código para copiar los archivos al disco duro.
Código Delphi
[-]Destino:= MakePath(Edit2, Date,(Edit4.Text));
CopyDir(OpenDialog1.Directory, Destino);
Edit3.Text:= Destino;
¿Es posible evitar el mensaje que genera Windows señalando que la carpeta no existe y preguntando si deseo crearla, cada vez que utilizo dicho código?
Saludos y muchas gracias por tu ayuda.