sub  GetDimension
 {
  my $root  = shift;
  return 'NA'  unless -e $root;
  my $dimension='0';
  my $fs = Win32::OLE->CreateObject('Scripting.FileSystemObject');
  my $folder = $fs->GetFolder($root);
  $dimension  =  $folder->size();
  $fs = undef;
  return $dimensione;
 }