zaqmlp

@echo off
set info=互助互利,支付宝扫码头像,感谢赞助
rem 有问题,可加QQ956535081及时沟通
title %info%
start mshta VBScript:Execute("msgbox(""%info%""):close")
set "原目录=C:\folder"
set "新目录=D:\temp"
if not exist "%新目录%" md "%新目录%"
for %%a in ("ABCD" "HIJK" "XYZA") do (
    for /f "tokens=1* delims=:" %%b in ('dir /a-d/b/tw/o-d "%原目录%\%%~a*.txt"^|findstr /n .') do (
        if %%b leq 3 (
            echo;"%原目录%\%%c" --^> "%新目录%\"
            copy /y "%原目录%\%%c" "%新目录%\"
        )
    )
)
pause
复制代码

zaqmlp

回复 5# yusukeboy
已修改

zaqmlp

回复 8# yusukeboy

赞助下吧