Checking Windiows Drive exception.

tart has asked for the wisdom of the Perl Monks concerning the following question:

Hi All, In my script I am trying to locate a file in windows drive.
As file could be in any drive so I am looping each letter such as,

foreach my $drive("a".."z")
        {
        if(-e "$drive:\\appcmd.exe")
                {
[download]

When 'a:' drive dose not exists in Windows or its floppy
drive and not accessible windows complains by sending warning message,

Windows - No Disk
Exception Processing Message c0000013 Parameters 75b6bf7c 4 75b6bf7c 75b6b7c

Can Any one suggest me better way to do this check? You
might suggest that I should use Win32::DriveInfo but for
some technical difficulties I can can not use it.

Please suggest if you have any ideas.Thanks,

Regards, tart

Comment on Checking Windiows Drive exception. Download Code

Replies are listed 'Best First'.
Re: Checking Windiows Drive exception. by Corion (Patriarch) on Feb 03, 2012 at 07:48 UTC
I use the following code to suppress "Media not inserted" messageboxes: `BEGIN { if ($^O =~ /\bMSWin32\b\|\bcygwin\b/) { require Win32::API; Win32::API->import(); Win32::API->Import('kernel32', 'SetErrorMode', 'I', 'I'); my $errormode = SetErrorMode(1); # fetch old error mode SetErrorMode(1 \| $errormode); # no AbortRetryFail messages any +more }; };` [download] Your code has two serious bugs in it already. First, you are not using strict.pm, which is why your typo of `$drive` and `$dive` will go unnoticed by Perl. Second, you are using backslashes in a double quoted string. `\a` in a double-quoted string means the "bell" character. Please see perlop on quotes.	[reply] [d/l] [select]
Re: Checking Windiows Drive exception. by Anonymous Monk on Feb 03, 2012 at 07:52 UTC
You might suggest that I should use Win32::DriveInfo but for some technical difficulties I can can not use it. The solution is obvious, resolve the technical difficulties `cpan Win32::DriveInfo` `cpan -fi Win32::DriveInfo` A Guide To Installing Modules Yes, even you can use CPAN A Practical Guide to Compiling C based Modules under ActiveState using Microsoft C++ http://search.cpan.org/author/GSAR/libwin32-0.191/APIFile/File.pm#getLogicalDrives list drives -> list of drives	[reply] [d/l] [select]
Re: Checking Windiows Drive exception. by rovf (Priest) on Feb 03, 2012 at 12:31 UTC
I'm not a Windows expert, so I used a pretty naive solution in my environment: Issuing a `net use` command and parsing the output. Maybe not the most elegant and efficient solution, but so far it works for me.... (Of course, if someone knows good reason why my approach might break, please let me know). -- Ronald Fischer <ynnor@mm.st>	[reply] [d/l] [select]
Re: Checking Windiows Drive exception. by Marshall (Canon) on Feb 03, 2012 at 20:15 UTC
I wrote code for a couple of ways of doing this here Re: Searching for a music files.	[reply]
Re^2: Checking Windiows Drive exception. by tart (Beadle) on Feb 04, 2012 at 01:32 UTC
Thanks Marshell, vol command is what I need!	[reply]