Windows批处理：检测最大文件夹数字前缀并创建新项目文件夹

问题背景 #

当前目录包含大量子文件夹，示例结构如下：

18.01.2023  10:05    <DIR>          .
18.01.2023  08:49    <DIR>          ..
18.01.2023  10:02    <DIR>          1-Lion
18.01.2023  10:02    <DIR>          2-Fox
18.01.2023  10:03    <DIR>          126-Orion (prior folders deleted)
18.01.2023  10:03    <DIR>          127-Future
18.01.2023  10:05    <DIR>          Random folder without prefix
18.01.2023  10:01               708 test.bat
               1 Datei(en),            708 Bytes
               7 Verzeichnis(se), 

需求是：

• 识别所有文件夹的数字前缀（前缀为1-99999的数字，以'-'分隔名称其余部分，忽略无数字前缀的文件夹）
• 自动计算下一个可用前缀，创建新的[前缀]-[项目名]格式文件夹

我尝试编写了如下脚本，但前缀检测逻辑存在问题，无法正确创建目标文件夹：

@echo off
setlocal enabledelayedexpansion

rem Set initial value for MaxPrefix variable
set MaxPrefix=0

rem Check all existing folders in current directory
for /D %%F in (*) do (
    rem Check if folder name has numeric prefix
    for /F "tokens=1 delims=-" %%P in ("%%F") do (
        rem Check if prefix is higher than current MaxPrefix value
        if %%P GTR %MaxPrefix% set MaxPrefix=%%P
    )
)

rem Ask for new project name
set /p projectname=Enter new project name:

rem Reject input if empty
if "%projectname%" == "" (
    echo Invalid input, project name cannot be empty.
    pause
    exit
)

rem Check if project name already exists as folder label
for /D %%F in (*) do (
    for /F "tokens=2 delims=-" %%P in ("%%F") do (
        if /I "%%P" == "%projectname%" (
            echo Project already exists with project number %MaxPrefix%.
            pause
            exit
        )
    )
)

rem Create new folder with incremented MaxPrefix and project name
set /a newprefix=%MaxPrefix% + 1
md %newprefix%-%projectname%

echo New project created with project number %newprefix%.
pause

问题分析与修正 #

原脚本的核心问题：

1. 未验证前缀是否为纯数字：如果文件夹名称的第一个部分不是数字（比如Random folder without prefix），if %%P GTR %MaxPrefix%会触发语法错误，导致脚本中断
2. 延迟变量未正确使用：在for循环中使用%MaxPrefix%无法获取实时更新的值，必须用!MaxPrefix!
3. 项目名重复检测逻辑缺陷：无数字前缀的文件夹会被错误解析，且只取第二个token，若项目名包含'-'会导致匹配错误

修正后的脚本 #

@echo off
setlocal enabledelayedexpansion

set "MaxPrefix=0"

rem 遍历所有文件夹，提取并验证数字前缀
for /D %%F in (*) do (
    for /F "tokens=1 delims=-" %%P in ("%%F") do (
        rem 检查前缀是否为纯数字
        set "prefix=%%P"
        set "isNumeric=1"
        for /L %%i in (0,1,9) do (
            if "!prefix!" == "" set "isNumeric=0" & goto checkPrefix
            set "char=!prefix:~0,1!"
            if not "!char!" geq "0" if not "!char!" leq "9" set "isNumeric=0" & goto checkPrefix
            set "prefix=!prefix:~1!"
        )
        :checkPrefix
        if !isNumeric! equ 1 (
            rem 比较前缀大小，更新最大值
            if %%P GTR !MaxPrefix! set "MaxPrefix=%%P"
        )
    )
)

rem 输入新项目名
set /p "projectname=Enter new project name: "

rem 验证输入非空
if not defined projectname (
    echo 错误：项目名称不能为空。
    pause
    exit /b 1
)

rem 检查项目名是否已存在（忽略前缀，不区分大小写）
set "projectExists=0"
for /D %%F in (*) do (
    for /F "tokens=1,* delims=-" %%A in ("%%F") do (
        rem 仅处理有数字前缀的文件夹
        set "prefix=%%A"
        set "isNumeric=1"
        for /L %%i in (0,1,9) do (
            if "!prefix!" == "" set "isNumeric=0" & goto checkProject
            set "char=!prefix:~0,1!"
            if not "!char!" geq "0" if not "!char!" leq "9" set "isNumeric=0" & goto checkProject
            set "prefix=!prefix:~1!"
        )
        :checkProject
        if !isNumeric! equ 1 (
            if /I "%%B" == "%projectname%" (
                set "projectExists=1"
                echo 错误：项目名称 '%projectname%' 已存在，对应前缀为 %%A。
                goto endCheck
            )
        )
    )
)
:endCheck

if !projectExists! equ 1 (
    pause
    exit /b 1
)

rem 计算新前缀并创建文件夹
set /a "newprefix=MaxPrefix + 1"
md "%newprefix%-%projectname%"

echo 新项目已创建，编号：%newprefix%，文件夹名：%newprefix%-%projectname%
pause
exit /b 0

关键修改说明 #

• 数字前缀验证：新增循环检查前缀的每一位是否为数字，过滤非数字前缀的文件夹
• 延迟变量正确使用：在循环中用!MaxPrefix!替代%MaxPrefix%，确保获取实时更新的最大值
• 项目名检测优化：使用tokens=1,*获取前缀后的完整名称（即使包含'-'），同时只检查有数字前缀的文件夹，避免误判
• 输入验证增强：用if not defined projectname更严谨地判断空输入
• 错误处理完善：添加exit /b返回错误码，脚本逻辑更健壮

内容的提问来源于stack exchange，提问作者Hans-Friedrich Fuge