批处理创建子文件夹并将子文件夹下的文件全部移到创建的文件夹中

现在有文件夹A，A下面有很多子文件夹A1 A2 A3 A4 A5...等，每个子文件夹内含有图片文件1,2,3,4,5...等，如果想要在每个子文件夹内创建一个新的文件夹并用含有上级文件夹名称的字段命名，如在A1中创建一个文件夹命名为“A1的相关信息”，并将原本A1中的文件移到这个新文件夹内，有代码能实现吗？


如图，在A1中创建A1的相关信息，并将原本A1中的图片文件移到A1的相关信息中。另外最上级文件夹还有跟A相同情况的文件夹BCD需要相同处理，可以实现吗？

你说的“代码”是指shell编程还是C＋＋、JAVA等编程实现？