如何从具有相同名称的文本文件创建文件夹和文件，以插入具有相应名称的文件？

我从门户网站的同事的作品中得到了启发

有一个基于列表的批处理创建文本文件
批处理脚本读取输入文本文件并为输入文本文件的每一行制作文本文件

开发文本文件的创建，例如
"comps.txt" ( comp1,comp2....
为每台 PC从文本文件中的PC 列表读取批处理脚本，并为每一行文本创建一个文本文件作为本地。
稍后在代码中创建文件夹文件命名 - 相同的名称（ comp1,comp2.... 最后我们有文本文件： comp1.txt ,comp2.txt ... 和文件夹： comp1 , comp2.... 直到 400计算机。
任何想法如何添加代码或编写另一个单独的批处理代码以移动文本文件的每个对应文件夹文本文件

comp1.txt->comp1 folder  
comp2.txt->comp2.txt  
....  

我们有400多条线！！对于任何每天都在努力工作的脚本，我非常喜欢，这是我的第一个问题。我在 Windows Batch 中的代码如下

@echo off
  setlocal
   for /f "tokens=*" %%a in (comps.txt) do (type nul>"%%a.txt")
  for /f "tokens=*" %%a in (comps.txt) do (
   echo This is line 1 of text>"%%a.txt"
   )
   for /f %%i in (comps.txt) do mkdir %%i 
  do (
  echo "%%i.txt"
      )
  endlocal

[ ]