2000 bilder in 50 packs zippen?

[Testoron]

Danke euch!

das tool geht nicht.. es erstellt die ordner packt die bilder rein löscht sie aber gleich wieder

auch wenn es geht.. es würd emir nicht helfen da es ordner zippt und nicht die bilder selbst.


hab die lösung in perl .. und auch eine anleitung geschrieben wie man das script benutzt.

http://kjno.net/bilder-teilen-und-zippen

#!/usr/bin/perl

use strict;
use warnings;

use DirHandle;

use Archive::Zip qw( AZ_OK );

my $image_dir_path = "h:\\foto\\natur";

my $image_dir_h = DirHandle->new;

if($image_dir_h->open($image_dir_path))
{
chdir($image_dir_path) or die $!;

my $zip = Archive::Zip->new;

my $item_counter = 0;
my $zip_counter = 0;

while(defined(my $dir_item = $image_dir_h->read)) {
next unless $dir_item =~ m/\.jpg$/;

$zip->addFile($dir_item);

$item_counter++;

if(($item_counter % 50) == 0) {

unless( $zip->writeToFileNamed("delete_${zip_counter}.zip") == AZ_OK ) {
die "Can't write zip file\n";
}

$zip = Archive::Zip->new;
$zip_counter++;
}
}

unless( $zip->writeToFileNamed("tmp_${zip_counter}.zip") == AZ_OK ) {
die "Can't write zip file\n";
}

$image_dir_h->close() or warn $!;
}
else
{
die "Can't open directory '$image_dir_path': $!\n";
}