Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re^6: USB Drive Letter Assignment in Win32

by traveler (Parson)
on Jun 09, 2004 at 14:38 UTC ( [id://362742]=note: print w/replies, xml ) Need Help??


in reply to Re^5: USB Drive Letter Assignment in Win32
in thread USB Drive Letter Assignment in Win32

Great. Thank you. I have a short demo working: 
use Win32::AdminMisc;
@drives = Win32::AdminMisc::GetDrives( DRIVE_REMOVABLE );
foreach $drive (@drives){
    %Info = Win32::AdminMisc::GetVolumeInfo($drive);
#    print "Drive $drive label is $Info{Volume}\n";
    print "Found USBDRIVE at $drive\n" if $Info{Volume} eq 'USBDRIVE';
}

[download]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://362742]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2024-04-24 06:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found