批处理开发需求：为拖放文件夹生成合规指定子目录结构

核心需求（TL;DR） #

需要一个批处理文件，针对拖放到其上的每个文件夹，找到名称不在指定列表（Bass、Pad、Synth）中的所有目录，并在这些目录下补全缺失的指定子文件夹。

详细说明 #

现有文件夹结构 #

Presets
|
+--- Author 1
|    |
|    +--- A1-Library 1
|    |    |
|    |    \--- Synth
|    |
|    \--- A1-Library 2
|
+--- Author 2
|    |
|    \--- A2-Library 1
|
+--- Library 4
|
\--- Library 5
     |
     +--- Author 3
     |    |
     |    +--- Genre 1
     |    |    |
     |    |    \--- Bass
     |    |
     |    \--- Genre 2
     |
     \--- Author 4

指定目录列表 #

需要补全的子文件夹名称为：Bass、Pad、Synth（不区分大小写）

目标结构 #

处理后需生成的文件夹结构如下：

Presets
|
+--- Author 1
|    |
|    +--- A1-Library 1
|    |    |
|    |    +--- Bass
|    |    |
|    |    +--- Synth
|    |    |
|    |    \--- Pad
|    |
|    +--- A1-Library 2
|         |
|         +--- Bass
|         |
|         +--- Synth
|         |
|         \--- Pad
|
+--- Author 2
|    |
|    \--- A2-Library 1
|         |
|         +--- Bass
|         |
|         +--- Synth
|         |
|         \--- Pad
|
+--- Library 4
|    |
|    +--- Bass
|    |
|    +--- Synth
|    |
|    \--- Pad
|
\--- Library 5
     |
     +--- Author 3
     |    |
     |    +--- Genre 1
     |    |    |
     |    |    +--- Bass
     |    |    |
     |    |    +--- Synth
     |    |    |
     |    |    \--- Pad
     |    |
     |    \--- Genre 2
     |         |
     |         +--- Bass
     |         |
     |         +--- Synth
     |         |
     |         \--- Pad
     |
     \--- Author 4
          |
          +--- Bass
          |
          +--- Synth
          |
          \--- Pad

当前已实现的代码 #

以下是初步完成的批处理代码，但存在功能缺陷：

@echo off
setlocal enabledelayedexpansion

:: Check if any arguments were provided to the batch file
if "%~1"=="" (
    echo No folders to process.
    pause
    goto :exit
)

:: Specify the folder names to create
set "folderNames=Bass Pad Synth"

:input_loop
:: Use the first argument as the target folder
set "targetFolder=%~1"
REM ==== THIS SHOULD BE THE LAST SUBFOLDER OF "%~1"

:: Loop through each folder name and create the folders
for %%f in (%folderNames%) do (
    md "!targetFolder!\%%f"
)

echo Subfolders created in %targetFolder%
pause
:: Look for the next dropped folder
SHIFT

if "%~1"=="" (
    :: Ok, done.
    goto :exit
)
goto :input_loop

:exit

存在的问题 #

• 未实现递归遍历功能，仅能处理直接拖放的顶层文件夹，无法深入下级符合条件的目录
• 会在已属于指定列表的目录（如Bass）内重复创建同名子文件夹，且无法自动补全这些指定目录下缺失的其他目标子文件夹

修正后的批处理代码 #

@echo off
setlocal enabledelayedexpansion

:: 检查是否有拖放的文件夹
if "%~1"=="" (
    echo 没有可处理的文件夹。
    pause
    goto :exit
)

:: 指定需要创建的目标子文件夹名称（不区分大小写匹配）
set "targetFolders=Bass Pad Synth"

:process_next_folder
set "rootFolder=%~1"

:: 递归遍历当前文件夹下的所有目录（包括自身）
for /r "%rootFolder%" %%d in (.) do (
    :: 获取当前目录的纯名称（不含路径）
    set "dirName=%%~nxd"
    :: 标记当前目录是否为目标文件夹（属于指定列表）
    set "isTargetFolder="
    
    :: 遍历目标列表，检查当前目录是否匹配
    for %%f in (%targetFolders%) do (
        /i if "!dirName!"=="%%f" (
            set "isTargetFolder=1"
            goto :skip_check
        )
    )
    :skip_check
    
    :: 仅对非目标文件夹，补全缺失的子文件夹
    if not defined isTargetFolder (
        for %%f in (%targetFolders%) do (
            if not exist "%%d\%%f" (
                md "%%d\%%f"
                echo 已创建: "%%d\%%f"
            )
        )
    )
)

echo 已完成对 "%rootFolder%" 的处理
:: 处理下一个拖放的文件夹
shift
if not "%~1"=="" goto :process_next_folder

:exit
endlocal
pause

代码说明 #

1. 递归遍历：使用for /r指令遍历拖放文件夹下的所有层级目录，包括根文件夹本身
2. 目录判断：通过不区分大小写的匹配，判断当前目录是否属于指定的目标文件夹列表，避免在这些目录内重复创建子文件夹
3. 增量创建：仅在非目标目录下检查并创建缺失的子文件夹，已存在的不会重复操作
4. 多文件夹处理：自动逐个处理所有拖放的文件夹，直到没有输入参数

内容的提问来源于stack exchange，提问作者Parduz