Re: folder size

[ToddAndMargo via perl6-users]

On 10/22/22 21:30, ToddAndMargo via perl6-users wrote:
Hi All,
Does Raku have a folder size command (including sub
folders) or is that a system call?

Many thanks,
-T

My final code:


sub RunCmd( Str $CommandStr, Bool $EchoOff = False )  {
   my Str $BatFile = $PathIAm ~ ".bat";
   my Str $RtnStr;
   my Str $CmdStr = "";

   if $EchoOff  { $CmdStr = Q[@echo off] ~ "\n"; }
   $CmdStr = $CmdStr ~ $CommandStr ~ "\n";
   # print "$CmdStr";

   spurt( $BatFile, $CmdStr );
   $RtnStr = qqx { $BatFile };
   # print "$RtnStr\n";
   return $RtnStr;
}


sub DirectoryExists( Str $DirPath     --> Bool ) { return 
"$DirPath".IO.d.Bool; }

sub FolderSize( Str $FolderPath --> Int )  {
   # dir . /s /A:-D /d /a  | raku -e "say lines[*-2].words[2]"
   # 3,275,848,795
   # > my Str $x="123,456,789"; $x~~s:g/","//; say $x; $y=$x.Int; say $y
   # 123456789
   # 123456789

   my $SubName = &?ROUTINE.name;
   my Str $RtnStr = "";
   my Str $ErrMsg = "";
   my Int $Size   = 0;

   if not DirectoryExists( $FolderPath )  {
       $ErrMsg = "$IAm\:$SubName error: FolderPath <$FolderPath> doesn 
not exist\n\n";
       MessageBox $IAm, $ErrMsg, MB_ICONERROR, MB_OK;
       print $ErrMsg;
       return 0;
   }