¿Cómo se copia por lotes de nombres de archivo existentes y el uso de ellos como los nuevos nombres de carpeta?

Tengo carpetas con varios archivos. Lo que quiero hacer es usar los nombres de archivo de los archivos como los nombres de las carpetas que le será creado en el mismo directorio:



¿Cómo puedo obtener la cadena data_1a de data_1a.txt y de forma automática por lotes crear una nueva carpeta con ese nombre (como el data_1a carpeta)?