[PMX:#] Re: Directory size

[Trevor Joerges \[SendMIME Software\]]

#!/usr/bin/perl -w   use strict; use File::Find;   my @DIRS = ("c:/");   my $sum = 0;   find sub { $sum += -s }, @DIRS; print "@DIRS contains $sum bytes\n"; if ($sum >= 1000000) {  print "Very big directory!\n\n";; }   Kind regards, Trevor J. Joerges -------------------------------------------- $_=q;rrUSFWPSZK.ZKPFSHFT,rkvtuZbopuifsZQZibdl rrqpxfsfeZcyZQ,,riuuq://xxx.%.dpn,ru~@%.dpn ,rrr8-) ;;s;\~;kpfshft;g;s;\%;tfoenjnf;g;y;B-x;A-w;; s;P;perl;g;s;,;\n;g;s;Y; ;g;s;q;\t;g;print; -------------------------------------------- ----- Original Message ----- From: Thomas Browner To: [EMAIL PROTECTED] Sent: Friday, November 08, 2002 12:44 PM Subject: Directory size How do I get size of a Directory?   Thomas Browner Digidyne, Inc Technical Engineer (251)479-1637