批处理移动文件优化需求：按原文件夹分类存放匹配文件

方案1：仅保留原文件的直接父文件夹 #

如果只需要在目标文件夹下创建与图片原所在活动子文件夹同名的目录，可使用以下修改后的脚本：

@echo off
set "origin=originfolder"
set "dest=destinyfolder"
set "list=filelist.txt"

for /r "%origin%" %%# in (*) do (
    :: 检查当前文件是否在待移动列表中（完全匹配文件名）
    findstr /x /i "%%~nx#" "%list%" >nul && (
        :: 提取原文件所在的直接父文件夹名称
        for %%d in ("%%~dp#.") do set "folderName=%%~nxd"
        :: 确保目标子文件夹存在
        if not exist "%dest%\%folderName%\" mkdir "%dest%\%folderName%"
        :: 将文件移动到对应子文件夹
        move "%%#" "%dest%\%folderName%\"
    )
)

PAUSE

关键修改说明： #

• 用变量定义核心路径，后续修改更便捷
• findstr /x 强制完全匹配文件名，避免因文件名包含列表中其他字符串导致误移动；/i 启用大小写不敏感匹配（可根据需求删除）
• 内层for循环通过%%~dp#.提取原文件的直接父文件夹名称（%%~dp#是文件的完整路径，追加.后可通过%%~nxd获取最后一级文件夹名）
• 先创建目标子文件夹再移动，避免因文件夹不存在导致操作失败

方案2：保留完整的原相对路径（旅行团+活动层级） #

如果需要保留原文件的完整层级结构（比如原文件在originfolder\旅行团A\活动1下，目标文件夹同步创建destinyfolder\旅行团A\活动1），可使用以下脚本：

@echo off
set "origin=originfolder"
set "dest=destinyfolder"
set "list=filelist.txt"

for /r "%origin%" %%# in (*) do (
    findstr /x /i "%%~nx#" "%list%" >nul && (
        :: 启用延迟扩展处理变量动态赋值
        set "relPath=%%#"
        setlocal enabledelayedexpansion
        :: 计算文件相对于origin文件夹的路径
        set "relPath=!relPath:%origin%=!"
        :: 移除路径开头的反斜杠（如果存在）
        if "!relPath:~0,1!"=="\" set "relPath=!relPath:~1!"
        :: 提取路径部分（去掉文件名）
        for %%p in ("!relPath!") do set "targetPath=%dest%\%%~dp"
        :: 创建目标路径
        if not exist "!targetPath!" mkdir "!targetPath!"
        :: 移动文件到目标路径
        move "%%#" "!targetPath!"
        endlocal
    )
)

PAUSE

关键修改说明： #

• 启用enabledelayedexpansion实现循环内的变量动态修改
• 通过字符串替换去掉原路径中的originfolder前缀，得到相对路径
• 提取相对路径的目录部分，在目标文件夹下创建相同的层级结构后再移动文件

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