WHY

@echo off
setlocal enabledelayedexpansion
set /a maxSize = 500 * 1024 * 1024, n = 1, size = 0
for /f "delims=" %%i in ('dir /b *.txt') do (
    set /a size += %%~zi
    if !size! GTR !maxSize! (
        set /a n += 1, size = %%~zi
    )
    md 2014-!n! 2>nul
    move "%%i" 2014-!n!\
)
pause
复制代码

WHY

回复 5# bataiping


    cmd 数值计算本身就是弱项，如果单个文件超过 2GB，或者输入浮点数，会很麻烦。可以考虑其它办法。
Test.PS1

$input = Read-Host('输入最大限制数（单位MB）');
if( $input -notmatch '^(?:[1-9]\d+|\d)(?:\.\d+)?$' ){
    echo '输入错误';
    [Console]::ReadKey();
    exit;
}

[Collections.ArrayList]$arr = @();
$maxSize = 1024 * 1024 * $input;
$n = 1001;
$size = 0;
$myPath = [IO.Path]::GetDirectoryName($MyInvocation.MyCommand.Path); #脚本所在目录
$preFix = $myPath.Split('\')[-1] + '-';

$file = dir -Literal $myPath -Filter *.pdf | ?{ $_ -is [IO.FileInfo] };

for( $i=0; $i -lt $file.Count; $i++ ){
    $size += $file[$i].Length;
    if( $size -gt $maxSize ){
        if( $i -gt 0 ){ $n++; }
        $size = $file[$i].Length;
    }
    $fd = $myPath + '\' + $preFix + ('' + $n).SubString(1);    #新目录 = 前缀 + 3位数字
    if( ![IO.Directory]::Exists($fd) ){
        $null = md $fd;                                        #创建新目录
    }
    mv -Literal $file[$i].FullName -Dest ($fd + '\') -Force;   #移动文件
    if( $file[$i].Length -gt $maxSize ){
        [void]$arr.Add( $fd + ' 超过' + $input + 'MB' );
    }
}
if( $arr.Count -gt 0 ){ sc -Literal ($myPath + '\error.Log') -Value $arr; }

echo 'Done';
[Console]::ReadKey();
复制代码

WHY

回复 4# akb4888


    你发一个新帖吧，有时间我帮你改。