[文件操作] 批处理怎样批量改名及建立文件夹？

@echo off&setlocal enabledelayedexpansion
%1 for /f "tokens=1,3* delims=#" %%a in ('%0 : ^|sort') do (
%1    if "%%a%%b"=="!tmp!" (set /a n+=1)else set n=1&set "tmp=%%a%%b"
%1    move "%%c" "%%~dpc%%b\%%a#!n!.jpg"
%1 )
%1 goto :eof

set "str="a=申请书" "b=审批表" "c=审核表" "d=立项表""
for %%a in (%str%) do set %%a

(for /d %%a in (*) do (
    pushd "%%a"
    for /f "delims=" %%b in ('dir /b/ad') do (
        ren "%%b" "%%a%%b" 
        for %%c in ("%%a%%b\*.jpg") do (
            for /f "tokens=1-2 delims=()" %%d in ("%%~nc") do (
                set ".=00000%%e"
                md "%%a%%b\!%%d!"
                echo,#%%a%%b#%%d!.:~-5!#!%%d!#%%~fc
            )
        )
    )
    popd
))2>nul
复制代码

@echo off&setlocal enabledelayedexpansion
cd /d "d:\6054321"
%1 for /f "tokens=1,3* delims=#" %%a in ('%0 : ^|sort') do (
......
复制代码

@echo off&setlocal enabledelayedexpansion
%1 for /f "tokens=1,3* delims=#" %%a in ('%0 : ^|sort') do (
%1    if "%%a%%b"=="!tmp!" (set /a n+=1)else set n=1&set "tmp=%%a%%b"
%1    move "%%c" "%%~dpc%%b\%%a#!n!.jpg"
%1 )
%1 goto :eof

set "str="a=申请书" "b=审批表" "c=审核表" "d=立项表""
for %%a in (%str%) do set %%a

set "dst="d:\654021""

cd /d %dst%
for %%a in (%dst%) do set "cd_=%%~nxa"

(for /f "delims=" %%b in ('dir /b/ad') do (
    ren "%%b" "%cd_%%%b" 
    for %%c in ("%cd_%%%b\*.jpg") do (
        for /f "tokens=1-2 delims=()" %%d in ("%%~nc") do (
            set ".=00000%%e"
            md "%cd_%%%b\!%%d!"
            echo,#%cd_%%%b#%%d!.:~-5!#!%%d!#%%~fc
        )
    )
))2>nul
复制代码