批处理脚本开发：按文件名规则创建文件夹并移动重命名Excel文件

问题分析 #

原代码的核心问题：

• 试图直接对for循环变量（如%%B）使用字符串截取语法:~12，这在批处理中不支持——字符串截取仅适用于环境变量，无法直接作用于for变量
• 内层for循环多余，%%~nA已经是不带扩展名的文件名，无需用delims=.再次拆分

修正后的代码（推荐延迟扩展版本） #

@echo off
setlocal EnableExtensions EnableDelayedExpansion
set "SourceDir=C:\Bureaublad\1"
set "DestDir=C:\Bureaublad\1"

:: 遍历所有以Kamekllofis开头的xlsx文件
for /F "eol=| delims=" %%A in ('dir /B /A-D-H "%SourceDir%\Kamekllofis*.xlsx" 2^>nul') do (
    :: 提取不带扩展名的文件名
    set "FileNameNoExt=%%~nA"
    :: 截取文件名前12个字符之后的部分作为文件夹名
    set "FolderName=!FileNameNoExt:~12!"
    :: 创建目标文件夹（忽略已存在的报错）
    md "%DestDir%\!FolderName!" 2>nul
    :: 移动文件到目标文件夹，并重命名为去掉前12个字符后的名称
    move /Y "%SourceDir%\%%A" "%DestDir%\!FolderName!\!FileNameNoExt:~12!.xlsx"
)

endlocal

关键修正点 #

• 启用EnableDelayedExpansion：让for循环内可以实时读取环境变量的更新值，用!变量名!替代%变量名%来访问
• 移除多余内层循环：直接用%%~nA获取不带扩展名的原文件名
• 正确实现字符串截取：先将文件名赋值给环境变量，再通过!变量名:~12!截取前12个字符之后的内容，作为文件夹名和新文件名

替代方案（不启用延迟扩展，用call命令） #

如果因特殊场景不能启用延迟扩展，可以用call命令间接展开变量截取：

@echo off
setlocal EnableExtensions DisableDelayedExpansion
set "SourceDir=C:\Bureaublad\1"
set "DestDir=C:\Bureaublad\1"

for /F "eol=| delims=" %%A in ('dir /B /A-D-H "%SourceDir%\Kamekllofis*.xlsx" 2^>nul') do (
    set "FileNameNoExt=%%~nA"
    :: 用call展开变量截取
    call set "FolderName=%%FileNameNoExt:~12%%"
    md "%DestDir%\%FolderName%" 2>nul
    :: 移动并重命名文件
    call move /Y "%SourceDir%\%%A" "%DestDir%\%FolderName%\%%FileNameNoExt:~12%%.xlsx"
)

endlocal

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