WHY

@if(0)==(0) echo off
dir /b /s *：*.pdf | cscript //nologo //e:jscript "%~f0"
rem for /d %%i in (*) do rd "%%i" 2>nul
pause & goto :EOF
@end

var fso = new ActiveXObject('Scripting.FileSystemObject');
var str = WSH.StdIn.ReadAll();
var reg = /.*\\([0-9]{6})([^\\]*)：([0-9]{4})[^\r\n\\]*/g;
var map = [], arr = [];

while(arr = reg.exec(str)){
    if(!map[arr[1]]) map[arr[1]] = [];
    map[arr[1]].push([arr[0], arr[2], arr[3]]);
}

for(var key in map){
    map[key].sort(function(a,b){ return b[2]-a[2] }); //以4位数年份排序
    var fd = key + map[key][0][1];
    if(!fso.FolderExists(fd)) fso.CreateFolder(fd);   //创建文件夹
    for(var i=0; i<map[key].length; i++) fso.GetFile(map[key][i][0]).Move(fd + '\\'); //移动文件
}
复制代码

WHY

回复 7# taofan712


    文件名中应该不能包含半角冒号的，即便是 NTFS 流文件，单凭 dir + for 也不可能显示出来的吧

WHY

@echo off & setlocal enabledelayedexpansion
if "%~1" == "arg" (
    for /r %%i in (*：*年*.pdf) do (
        for /f "tokens=1,2 delims=：年" %%j in ("%%~ni") do (
            set "s=%%j"
            echo;!s:~0,6!/%%k/!s:~6!/%%i
        )
    )
) else (
    set "s="
    for /f "tokens=1,3* delims=/" %%i in ('"%~f0" arg ^| sort /r ') do (
        if not "%%i" == "!s!" set "fd=%%i%%j"
        set "s=%%i"
        md "!fd!"
        move "%%k" "!fd!\"
    ) 2>nul
    for /d %%i in (*) do rd "%%i" 2>nul
    pause
)
复制代码