in reply to Re: Moving files and directories
in thread Moving files and directories
Thanks, but there is still problems:
I get this output:
indir= M:\AllFiles, outdir=n:\allFiles
indir size=0 outdir size=0
indir= M:\AllFiles, outdir=n:\allFiles
indir size=0 outdir size=0
indir= M:\AllFiles\*, outdir=n:\allFiles
indir size=0 outdir size=0
This tells me that the -s function isn't working
which means it still isn't reading the directory information
Eventually, I want to check to see if there is enought
room, then execute a move function.
I get this output:
indir= M:\AllFiles, outdir=n:\allFiles
indir size=0 outdir size=0
indir= M:\AllFiles, outdir=n:\allFiles
indir size=0 outdir size=0
indir= M:\AllFiles\*, outdir=n:\allFiles
indir size=0 outdir size=0
This tells me that the -s function isn't working
which means it still isn't reading the directory information
Eventually, I want to check to see if there is enought
room, then execute a move function.
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); # test 2 Try within quotes. MoveFiles("$inDir","$outDir"); # test 3 Try selecting ALL files in the directory MoveFiles($inDir."\\*", $outDir); sub MoveFiles { my ( $source, $destination ) = @_; my $source_size = (-s $source) || 0; my $destination_size = (-s $destination) || 0; move( $source, $destination ) if ($destination_size > $source_size); }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^3: Moving files and directories
by ig (Vicar) on May 09, 2009 at 07:19 UTC | |
by Anonymous Monk on May 09, 2009 at 08:33 UTC | |
by Anonymous Monk on Mar 15, 2012 at 17:28 UTC |
In Section
Seekers of Perl Wisdom