Obtaining a Disk Volume Label in Win32 1

[cartw19]

How do I obtain a disk volume label in a Perl program running under Windows 32.

e.g. I have a CD Rom in my drive d:, how do I find the volume label of the CD Rom?

Any sugestions welcome,
Colin

 

[tonykent]

One method would be to use the system's 'vol' command. On my NT box typing

vol d:

produces the following output:

Volume in drive E is perl2
Volume Serial Number is 1C70-9ECA

You could output that to a text file and then use a regex to grab the volume name.

 

[tonykent]

This works for me:

@myarray = `vol e:`;
@myarray[0]=~m/\s(\w+)$/;
print "volume is $1\n";

 

[PaulTEG]

For more comprehensive coverage look at Win32:riveInfo,

Paul

 

[tonykent]

Thanks for bringing Win32:riveInfo to my attention Paul. It works a treat.