yhcfsr

回复 4# 滴血雄鹰

需要注意的是:
★起始文件名不要输入005这样以0开头的数字,小于三位数字会自动补0
★不允许创建高于999的文件名

@echo off
::=======用户设置区=======
set "SrcDir=e:\0000"
set "DstDir=E:\9999"
::========================
::=======主程序开始=======
echo;【1】建新目录并复制
echo;【2】只建立新文件夹
choice /N /c 12
if %errorlevel%==1 call :md_copy
if %errorlevel%==2 call :only_md
pause&exit
::=======主程序结束=======

::========函数区=========
//****建新目录并复制*****
:md_copy {
	call :only_md
	
	for /l %%a in (%start%,1,%end%) do (
		set "name=%%a"
		for %%b in ("%DstDir%\*") do (
			set "file=%%b"
			setlocal enabledelayedexpansion
			copy "!file!" "!SrcDir!\!name:~-3!\!name:~-3!%%~xb">nul
			endlocal
		)
	)
	exit /b
}

//****只建立新文件夹****
:only_md {
	set/p "start=输入新建文件夹开始文件名："
	set/p "num=输入新建文件夹的数量："
	set/a "start+=1000"
	set/a "end=start+num-1"
	for /l %%a in (%start%,1,%end%) do (
		set "name=%%a"
		setlocal enabledelayedexpansion
		md "!SrcDir!\!name:~-3!"
		endlocal
	)
	exit /b
}
复制代码

yhcfsr

回复 7# 滴血雄鹰


代码已更新在5楼