Re: Moving files and directories

Just out of curiosity, what happens when you pass an actual file? Eg.

my $inDir = "M:\AllFiles\test.txt";
my $outDir = "n:\allFiles\abc.txt";
[download]

And I would guess that you need to read each size of your files in your directory and then add them up.

Comment on Re: Moving files and directories Download Code

Replies are listed 'Best First'.

Re^2: Moving files and directories
by perlNinny (Beadle) on May 09, 2009 at 00:28 UTC

use strict;
use warnings;
use File::Copy;

# yes, it is Windows XP and a drive letters assigned to a USB and a NA
+S drive.
# Indir and outdir will be a parameter in this format.

my $inDir = "M:\\AllFiles";
my $outDir = "n:\\allFiles";


# test 1 straight in out in DOS format.
MoveFiles($inDir,$outDir);

$inDir = "M:\\AllFiles\\TestDoc.txt";
$outDir = "n:\\allFiles\\abc.txt";
# test 2 Try specific files.
MoveFiles($inDir,$outDir);

$inDir = "M:\\AllFiles";
$outDir = "n:\\allFiles\\";

# test 3 Try selecting ALL files in the directory
MoveFiles($inDir."\\*", $outDir);

sub MoveFiles {
    my ( $source, $destination ) = @_;
    print "indir= $source, outdir=$destination\n";
    my $source_size = (-s $source) || 0;
    my $destination_size = (-s $destination) || 0;
    move( $source, $destination );
    print "indir size=$source_size outdir size=$destination_size\n";
}
[download]

[reply]
[d/l]


Perl: the Markov chain saw
	PerlMonks