Wow, a Prodigy email address... I remember using them back in the day.  I'm 
kinda surprised they are still with us.

At 12:25 PM 1/28/2002, you wrote:
>In VB, I can make an API call (Can't remember what it is off the top of my
>head) that will basically look at the drive and detect if I need to pop up 
>a message box letting the user know that he/she needs to insert a disk, if 
>it is full, or needs to be formatted....

Well, to just tell if you can write to the disk or not, the open idea 
posted by Jonathan E. Paton is a good idea.  I can't vouch for what he said 
about hanging machines without floppy drives, but I wouldn't doubt it.

His advice is also sound, in that for the moment you twiddle your thumbs, 
something could change, but if you want to test for all the possible 
failures, your going to need a little more info than Perl will leave you 
with.  (If you try to open a file on a floppy and there's no disk in the 
drive, Perl will tell you (through $!) "Permission Denied", which looks to 
be the case, from Perl's perspective, but isn't entirely true.

If you want to test for all those conditions (out of disk space, disk not 
formatted, not in drive) you'll need to check out some of the Win32 
modules, and you'll need to do a little work get all that info together.

The module you should check out is Win32::DriveInfo.  It's documentation 
can be found here.

http://search.cpan.org/doc/MBLAZ/Win32-DriveInfo-0.06/DriveInfo.pm

I've used it a very little bit, so if you have a simple question about it, 
I might be able to help you.

There are functions in there that can help you determine if there's some 
media in the drive, and if there's enough space left on said media. 
(IsReady() and DriveSpace() functions.) As far as deciding between the 
disk-not-inserted and disk-not-formatted cases, I think you might need to 
look somewhere else for a function that could determine that 
information.  Maybe Win32API::File, but I don't really know.

Later,

Sean.


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to