Help for this page

Select Code to Download


  1. or download this
    use Win32::DriveInfo;

use constant {
...
printf "%.3f GB free of total %.3f GB\n", 
     $info[ TOTAL_FREE ] / 1024**3, 
     $info[ TOTAL_BYTES ] / 1024**3;
  2. or download this
    c:\Perl>drivelist.pl
\\server01\d$
Drive   Free    Tot     PctFree
...
c:
Drive   Free    Tot     PctFree
31.639 GB free of total 74.444 GB