@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /ad') do (
    echo %%i
    pushd "%%i"
    call :GetFirst
    call :GetLast
    popd
)
pause
exit /b

:GetFirst
for /f "delims=" %%j in ('dir /b /a-d *.pdf') do (
    echo     %%j
    goto :eof
)

:GetLast
for /f "delims=" %%j in ('dir /b /a-d *.pdf') do (
    set "FileName=%%j"
)
echo     %FileName%
goto :eof
复制代码

@echo off
cd /d "%~dp0"
REM 自动在上级目录创建“提取”文件夹
set "NewFolder=..\提取"
md "%NewFolder%" 2>nul
for /f "tokens=1,2 delims=_" %%a in ('dir /b /a-d "*地籍调查表_1.pdf"') do (
    echo "%%a_%%b" --- ^>"%NewFolder%\"
    for /f "delims=" %%i in ('dir /b /a-d "%%a_*.pdf" ^| find /v /c ""') do (
        echo "%%a_%%i.pdf" ---^> "%NewFolder%\"
        move "%%a_%%i.pdf" "%NewFolder%\"
    )
    move "%%a_%%b" "%NewFolder%\"
)
pause
复制代码