(tye)Re: List of Mounted Drives on Win32
#!/usr/bin/perl -w use strict; use Win32API::File qw( getLogicalDrives GetVolumeInformation ); my @drives= getLogicalDrives(); foreach my $d ( @drives ) { my @x= (undef)x7; GetVolumeInformation( $d, @x ); print "$d $x[0] ($x[5])\n"; } __END__ C:\ Local Disk (NTFS) D:\ (NTFS) E:\ ()
In reply to Re: Creating a drive list on a Windows system?
by Anonymous Monk
in thread Creating a drive list on a Windows system?
by chanklaus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |