netdzb

回复 8# xczxczxcz


  我把代码改成这样，你看可以吗？

$files =ls |?{$_.Directory};

$Begin, $n =0,1,$Len=0;
While ( $Begin -lt $files.Count )
{
    $name =$n.ToString().PadLeft(3,'0')+'.rar';
     
    While ( $Len -lt 19.5MB)
    {
      Len=Len+Get-Item $name).Length;
      & rar
    }
     Len=0;
}

xczxczxcz

回复 31# netdzb

一、肯定不能运行。
二、不会处理子目录。

再给你写个 带子目录的。用法同前。若嫌目录太长，可把工作文件夹放到磁盘根目录。这样简单，不需要过多处理。
下面的脚本不处理：当有一个文件大于设定值时，会无限循环。所以假设你的每一个文件都不会超过设定的值。

$files =ls -rec |?{$_.Directory};
$Size = 19.5; #自定义大小，
$index, $n =0,1;
While ( $index -lt $files.Count )
{
	$name =$n.ToString().PadLeft(3,'0')+'.rar';
	& rar a $name $files[$index].FullName|Out-Null;
	if ((Get-Item $name).Length/1MB -gt $Size) {
		$del =$files[$index].FullName -replace '^\w:\\';
		& rar d $name $del | Out-Null;
		$n++;
	} else { $index++ }
}
复制代码

smss

@echo off
setlocal enabledelayedexpansion
for /f "delims=" %%i in ('dir /a-d /b *.*') do (set n=001
rar a temp.rar %%i
for %%i in (temp.rar) do (
if %%~zi leq 20971520 (copy temp.rar !n!.rar) else (del temp.rar
n=n+1
))
pause
复制代码

rar 为你电脑RAR绝对路径

netdzb

回复 32# xczxczxcz

一个一个包压缩效率太低，打包405个文件用了一个小时。能否改成在门限下的尺寸，得到一个输出列表。
然后通过列表文件进行打包。

xczxczxcz

回复 34# netdzb

偶测试了 1080个文件（主目录540个，子目录也540个，每个文件为1.89M），按每个压缩包不大于20M的最大文件，默认压缩率，处理用时 147秒。又测试按每个压缩包 100个文件的方式打包，采用极限压缩。用时48秒。不知道你的 1 个小时怎么来的。

netdzb

回复 35# xczxczxcz

可能我是机械硬盘的关系，或者我的cpu太慢。