ShowCode

回复 20# wqj


我写的代码不需要你重复的发出来。因为这对于我理解你的需求没有任何帮助。
我只需要知道需求是怎样。哪里的文件名换成这样？移动之前还是移动之后？
文字加截图描述清楚你的需求就够了。
具体步骤请看2楼。

wqj

回复 9# ShowCode


       大神麻烦再请教一下？文件名换成这样，您写的代码怎么修改!
新0001.jpg
新0002.jpg
新0003.jpg
新0004.jpg
新0025.jpg
新0029.jpg
新0058.jpg
新0112.jpg
新0113.jpg
新0116.jpg
文件名始终保留4位数字
@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "%%i" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "新 (%%j).jpg" (
                move "新 (%%j).jpg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).jpeg" (
                move "新 (%%j).jpeg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).png" (
                move "新 (%%j).png" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).bmp" (
                move "新 (%%j).bmp" "%%i\"
                set /a FileNum+=1
            )
        )
    )
)

ShowCode

回复 18# wqj


    请按照2楼的步骤操作

wqj

回复 11# ShowCode


    大神麻烦再请教一下？文件名换成这样，您写的代码怎么修改!
新0001.jpg
新0002.jpg
新0003.jpg
新0004.jpg
新0025.jpg
新0029.jpg
新0058.jpg
新0112.jpg
新0113.jpg
新0116.jpg
文件名始终保留4位数字
@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "%%i" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "新 (%%j).jpg" (
                move "新 (%%j).jpg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).jpeg" (
                move "新 (%%j).jpeg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).png" (
                move "新 (%%j).png" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).bmp" (
                move "新 (%%j).bmp" "%%i\"
                set /a FileNum+=1
            )
        )
    )
)

wqj

回复 15# ShowCode


    拜谢大神！

wqj

已解决，感谢大神帮助！

ShowCode

回复 14# wqj


图片顺序不连续V1.3.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (10,-1,1) do (
    md "新建 (%%i)" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "%%j.jpg" (
                move "%%j.jpg" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.jpeg" (
                move "%%j.jpeg" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.png" (
                move "%%j.png" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.bmp" (
                move "%%j.bmp" "新建 (%%i)\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

wqj

如上代码每个文件夹移动进去2张 图片 ，怎样实现逆序放入文件夹？
1-2.jpg复制进文件夹10
3-4.jpg复制进文件夹9
5-6.jpg复制进文件夹8
7-8.jpg复制进文件夹7
9-10.jpg复制进文件夹6

ShowCode

回复 12# wqj


图片顺序不连续V1.2.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "新建 (%%i)" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "%%j.jpg" (
                move "%%j.jpg" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.jpeg" (
                move "%%j.jpeg" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.png" (
                move "%%j.png" "新建 (%%i)\"
                set /a FileNum+=1
            ) else if exist "%%j.bmp" (
                move "%%j.bmp" "新建 (%%i)\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

wqj

回复 11# ShowCode

抱歉，我搞错了，是文件夹名改成这样怎么修改。再帮帮忙，万分感谢！
新建(1)-
新建 (2)-
新建 (3)-
新建(4)-
新建 (5)-
新建 (6)-
新建 (7)-
新建 (8)-
新建 (9)-
新建 (10)-

ShowCode

回复 10# wqj


图片顺序不连续V1.1.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "%%i" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "新 (%%j).jpg" (
                move "新 (%%j).jpg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).jpeg" (
                move "新 (%%j).jpeg" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).png" (
                move "新 (%%j).png" "%%i\"
                set /a FileNum+=1
            ) else if exist "新 (%%j).bmp" (
                move "新 (%%j).bmp" "%%i\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

wqj

回复 9# ShowCode


    感谢帮助，完美实现！
弱弱的再问一下？文件名换成这样，代码怎么修改!
新 (1).jpg
新 (2).jpg
新 (3).jpg
新 (4).jpg
新 (5).jpg
新 (6).jpg
新 (7).jpg
新 (8).jpg
新 (9).jpg
新 (10).jpg

ShowCode

回复 6# wqj


图片顺序不连续V2.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    call :HandleFolder %%i
)

:HandleFolder
md "%1" 2>nul
set "FileNum=0"
for /l %%j in (1,1,100) do (
    if !FileNum! lss !MaxNum! (
        if exist "%%j.jpg" (
            move "%%j.jpg" "%1\"
            set /a FileNum+=1
        ) else if exist "%%j.jpeg" (
            move "%%j.jpeg" "%1\"
            set /a FileNum+=1
        ) else if exist "%%j.png" (
            move "%%j.png" "%1\"
            set /a FileNum+=1
        ) else if exist "%%j.bmp" (
            move "%%j.bmp" "%1\"
            set /a FileNum+=1
        )
    ) else (
        goto :eof
    )
)
复制代码

ShowCode

回复 6# wqj


图片顺序不连续V1.bat

@echo off
cd /d "%~dp0"
setlocal enabledelayedexpansion
set "MaxNum=2"
for /l %%i in (1,1,10) do (
    md "%%i" 2>nul
    set "FileNum=0"
    for /l %%j in (1,1,100) do (
        if !FileNum! lss !MaxNum! (
            if exist "%%j.jpg" (
                move "%%j.jpg" "%%i\"
                set /a FileNum+=1
            ) else if exist "%%j.jpeg" (
                move "%%j.jpeg" "%%i\"
                set /a FileNum+=1
            ) else if exist "%%j.png" (
                move "%%j.png" "%%i\"
                set /a FileNum+=1
            ) else if exist "%%j.bmp" (
                move "%%j.bmp" "%%i\"
                set /a FileNum+=1
            )
        )
    )
)
复制代码

wqj

[img][/img]