例如：将12.txt的文件名12写入12.txt文件内的第一行 
      将123.txt的文件名123写入123.txt文件内的第一行 
      将1234.txt的文件名1234写入1234.txt文件内的第一行 
      将12345.txt的文件名12345写入12345.txt文件内的第一行 
      将123456.txt的文件名123456写入123456.txt文件内的第一行
有的文件名之间会有空格!!!

我在网上找到了一些方法，但是对有的能成功添加，有的却提示什么文件无法打开什么的，有的虽然将名字加到文件内了但却将文件中原来的内容全删除了。不知道是怎么回事，我用的是网上找到的这段代码。我对VB不太熟悉，所以不知道漏动错在哪里

@echo off 
setlocal ENABLEDELAYEDEXPANSION 
for /f "tokens=*" %%a in ('dir /a-d/b *.txt') do ( 
set file=%%a 
for /f "delims=: tokens=1,*" %%i in ('findstr /n .* !file!') do set "%%i=%%j" & set num=%%i 
echo ===!file:~0,-5!===>!file! 
for /l %%i in (1,1,!num!) do if defined %%i (>>!file! echo !%%i!) else (>>!file! echo.) 
) 
保存为.BAT文件