求一个自动按名字归档文件夹的BAT；

不清楚你的实际文件/情况，仅以问题中的样例说明及猜测为据；以下代码复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的多个文件和文件夹放一起双击运行/*&cls&echo off&cd /d "%~dp0"&mode con lines=5000

rem 将当前目录里文件名称中包含有某个子文件夹名称字符的文件，剪切/归类运毁/移动到对应的子文件夹里

set #=Any questions&set _=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%_% %z%

for /f "祥枯delims=" %%a in ('dir /ad-h/b^|cscript -nologo -e:jscript "%~f0"') do (

    for /f "delims=" %%b in ('dir /a-d-h/b "*%%~nxa*" 2^>nul') 谨悄洞do (

        if "%%~nxb" neq "%~nx0" (

            echo"%%~b" --^> "%%~a\%%~nxb"

        )

    )

)

echo%#% +%$%%$%/%_% %z%

pause

exit

*/

try{var arr=WSH.StdIn.ReadAll().split(/[\r\n]+/)

arr.sort(function(a,b){return b.length-a.length})

WSH.echo(arr.join('\r\n'))}catch(err){}

不清楚你的实际文件/情况，仅以问题中的样例/说明为据

复制粘贴到记事本，另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行/*&cls

@echo off

rem 根据文件名特定位置上的字符串/关键字将文件剪切/归类/移动到不同燃伏李文件夹里

mode con lines=3000

set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%@% %z%

cd /d "%~dp0"

set len=3

for /f "tokens=1* delims=|" %%a in ('dir /a-d/b^|cscript -nologo -e:jscript "%~f0"') do (

    if /i "%%~nxa" neq "%~nx0" (

        set "f=%%a"

        set "name=%%b"

        setlocal enabledelayedexpansion

        echo"!f!" --^> "!name:~,%len%!"

        if not exist "!name:~,%len%!\" md "!name:~,%len%!\"

        move "!f!" "!name:~,%len%!\"

        endlocal

    )

)

:end

echo%#% +%$%%$%/%@% %z%

pause

exit

*/

var fso=new ActiveXObject('Scripting.FileSystemObject')

while(!WSH.StdIn.AtEndOfStream){

   厅桥 var line=WSH.StdIn.ReadLine()

    //var f=fso.GetFile(line)

    var oldbase=fso.GetBaseName(line)

    var newbase=oldbase.replace(/^\d+[\s\.\-_]*/,''皮迟)

    WSH.echo(line+'|'+newbase)

}

不清楚你的实际文件/情况，仅以问题中的说明及猜测为据

复制粘贴到记事本，棚中另存为xx.bat，编码选ANSI，跟要处理的文件放一起运行@echo off

rem 将当前文件夹里的文件按扩展名/后缀名进行归类/分类(剪切/移动到对应文件夹里)

mode con lines=3000

set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4

title %#% +%$%%$%/%@% %z%

cd /d "%~dp0"

set ext=*.*

for /f "delims=" %%a in ('dir /a-d/b %ext%') do (

    if /i "%%~nxa" neq "%~nx0" (

        if "%%~xa" neq "" (

            set "f=%%a"&set "e=%%~xa"

  手和带      毕芦    setlocal enabledelayedexpansion

            if not exist "!e:~1!\" (md "!e:~1!\")

            echo"!f!" --^> "!e:~1!\"

            move "!f!" "!e:~1!\"

            endlocal

        )

    )

)

:end

echo%#% +%$%%$%/%@% %z%

pause

exit

---