[文件操作] [已解决]批处理根据文件夹名分文件夹 并命名

001011

路径下有很多这样的文件夹  里面都是JPG的图片文件
DYJW-2008-0001-001
DYJW-2008-0001-002
DYJW-2008-0002-001
DYJW-2008-0002-002
DYJW-2008-0002-003
DDAA-2009-0001-001
DDAA-2009-0001-002
根据文件夹名字分文件夹
如图：

这里  DYJW-2008-0001-001 最后面的001变成1，再在这个下面加一个1
比如这个DYJW-2008-0001-002 最后面的002变成2，再在这个下面加一个1
如图：
DDAA-2009-0001-001
DDAA-2009-0001-002
这两个就变成：

最终变成这样的文件夹结构

czjt1234

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
for /f "tokens=1,2,3,4 delims=-" %%a in ('dir /a:d/b') do (
    set /a n=0+%%d
    md %%a\%%b\%%c\!n!\1
)
复制代码

001011

回复 2# czjt1234
感谢您的回复，文件夹分的是正确的，就是没有把相应的图片放进去，放进图片后把原始文件夹删掉。麻烦您再改进一下  谢谢

pcl_test

@echo off & setlocal enabledelayedexpansion
for /f "tokens=1-4 delims=-" %%a in ('dir /ad /b') do (
md "%%a-%%b-%%c-%%d\1"
move "%%a-%%b-%%c-%%d\*.jpg" "%%a-%%b-%%c-%%d\1\" 2>nul
set /a n=0+%%d
ren "%%a-%%b-%%c-%%d" "%%a-%%b-%%c-!n!"
)
pause
复制代码

001011

回复 4# pcl_test

提示：存在一个重名文件，或是找不到文件

pcl_test

回复 5# 001011

文件夹没有图片，已修改

001011

根据 pcl_test 的代码  调节成我需要的功能  谢谢pcl_test
@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
for /f "tokens=1,2,3,4 delims=-" %%a in ('dir /a:d/b') do (
    set /a n=0+%%d
ren "%%a-%%b-%%c-%%d" "%%a-%%b-%%c-!n!"
)
@echo off & setlocal enabledelayedexpansion
for /f "tokens=1-4 delims=-" %%a in ('dir /ad /b') do (
md "%%a\%%b\%%c\%%d\1"
move "%%a-%%b-%%c-%%d\*.jpg" "%%a\%%b\%%c\%%d\1\" 2>nul
)
pause

001011

先把最后面的变成一位数
建立文件夹
剪切图片
OK

ww0000

好东西,以后能用!!

CrLf

回复 2# czjt1234


    set /a n=0+%%d 的办法要是碰到 %%d=008 的情况咋办？

001011

回复 10# CrLf
您好  按照你的提示 我做了一下测试  008  009  010都会出错啊
麻烦您帮忙修正一下把
感谢

CrLf

回复 11# 001011


    set /a n=0+%%d 改成 set /a n=1000%%d %% 1000
    话说 010 好像不会出错的吧...

001011

回复 12# CrLf

非常感谢  原先的代码  10会出错的   变成1了