I hate suggesting this, but it will probably make the out-of-memory problem go away with the least effort:)

Change

my ($Size)=( (qx{dir /s "$TargetPath"})[-2]=~ /([\d,]+) bytes/ );
[download]

to

my ($Size)=( (qx{dir /s "$TargetPath" | find "bytes" })[-2]=~ /([\d,]+
+) bytes/ );
[download]

That will filter out the vast majority of the lines produced by the dir /s before they get into perl.

If you have WSH available, then you can use

use Win32::OLE;

my $size = Win32::OLE->CreateObject('Scripting.FileSystemObject')
    ->GetFolder( $TargetPath )
    ->size();
[download]

Which probably isn't hugely more efficient than dir /s in terms of doing the calculation, but it will prevent the memory problem.

You could also accumulate the directory sizes directly in perl

my (@dirs, @files) = ($TargetPath);
scalar map{ 
    push @{ (-d) ? \@dirs : \@files }, $_ 
} glob pop(@dirs) . '/*' while @dirs;
my $size += -s for @files;
[download]

Which from my quick tests is much faster than shelling out, and seems to be quicker than using an FSO but it's difficult to measure as file system catching gets involved.

You could also use any of the many File::Find modules to achieve the same effect.

Ew. map in void context. Hand rolled directory traversal (though that's not as bad on Win32). How about

use File::Find;
my $size;
find(sub { $size += -s _ if -f }, $TargetPath);
[download]

(Yes, File::Find is slower than hand rolled traversal. A heck of a lot less (and clearer) code, though, and still beats the dir /s approach by miles.)

Makeshifts last the longest.

Thanking you sir,

The first method did not work.

Error

DrvTop=> D:\ZZ-TESTRESTORE  (Shared by remote command.)     Sizing \\u
+kz423\D$\ZZ-TESTRESTORE The name specified is not recognized as an
internal or external command, operable program or batch file.
 :
[download]

The second method ignored sub directories. Would be usefull to me if I knew how get it to include Sub Dirs, no help in the documentaion.

The last method failed to produce any out out. I tried printing $size and @files but got zilch display.

So basically I am back to square root of 1.

Thanking you kind sir, however; <be>
This did not work

my ($Size)=( (qx{dir /s "$TargetPath" | find "bytes" })[-2]=~ /([\d,]+
+) bytes/ );
[download]

I got the following error;

DrvTop=> D:\APPS        ()      Sizing \\Server118\D$\APPSThe name spe
+cified is not recognized as
internal or external command, operable program or batch file.
Use of uninitialized value in pattern match (m//) at C:\Scripts\shr_in
+fo1.pl
        line 44 (#1)
    (W uninitialized) An undefined value was used as if it were alread
+y
    defined.  It was interpreted as a "" or a 0, but maybe it was a mi
+stake.
    To suppress this warning assign a defined value to your variables.

    To help you figure out what was undefined, perl tells you what ope
+ration
    you used the undefined value in.  Note, however, that perl optimiz
+es your
    program and the operation displayed in the warning may not necessa
+rily
    appear literally in your program.  For example, "that $foo" is
    usually optimized into "that " . $foo, and the warning will refer 
+to
    the concatenation (.) operator, even though there is no . in your
    program.

Use of uninitialized value in concatenation (.) or string at
        C:\Scripts\shr_info1.pl line 45 (#1)
 :
[download]

The OLE method worked but the values were not accurate because it ignored sub directories, would be useful if I knew how to get it to include sub dirs as well. I had a look in the documentation but there was not even a mention of GetFolder. Quick search on PM ,…nothing.

This method seems to be the easiest for me, but only if I knew how to get the sub directories,…do I need to write a code the will recurs into sub directories?but then I am back to square 1!

I am about to try out the final method…