Select Code to Download

#!/usr/bin/perl -w

...
my $drives = GetDrives( DRIVE_FIXED );

print $drives . "\n";

DRIVE_FIXED      - hard drive
DRIVE_REMOVABLE  - floppy
DRIVE_REMOTE     - network drive
DRIVE_CDROM      - cdrom
DRIVE_RAMDISK    - emulated drive in memory

GetDriveType( DRIVE ) - returns the drives type
GetDriveSpace ( DRIVE ) - returns the drives space
...
   ------------------
   Volume      Volume Label
   Serial      Serial number of drive

#!/usr/bin/perl -w

...
        print "Drive $i exists\n";
    }
}