newswan

@echo off
setlocal enableDelayedExpansion

set sour=C:\NEW\DATA\A
set dest=C:\NEW\TEST

pushd %sour%
for /f "usebackq delims=" %%a in (` dir /b /ad `) do (
    call :f %%a
)
popd
goto :END

:f
pushd %1
for /l %%a in (9,-1,0) do (
    for /f "usebackq delims=" %%a in (` dir /b /ad B??????????????%%a*  2^>nul`) do (
        echo "%%~fa"
        goto :break
    )
)
:break
popd
goto :eof

:END
复制代码

屏幕输出，文件正确的话，第18行修改为

move "%%~fa" %dest%
复制代码

newswan

B357821959101062D0
17行改成 B???%%a*
多少个?你自己算

newswan

回复 6# arjunayuki


    应该没问题的，小改了一下，如果有问题，把输出看看。

newswan

回复 8# arjunayuki


    上面已经改了，你测试

newswan

回复 10# arjunayuki


    每个文件夹里找一个 文件夹 ？ 第1个字符是B 第16个字符是数字，最大的数字
    上面改了。看看屏幕输出

已测试，目录树

├───data
│   └───a
│       ├───a
│       │   ├───a1
│       │   ├───a2
│       │   └───a3
│       ├───b
│       │   ├───b1
│       │   ├───B123412341234xx9abc
│       │   ├───b2
│       │   └───b3
│       └───c
│           ├───c1
│           ├───c2
│           └───c3
└───test
复制代码