Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I need to detect a zip disk
Message
 
 
To
13/07/2002 10:36:15
General information
Forum:
Visual FoxPro
Category:
Windows API functions
Miscellaneous
Thread ID:
00677567
Message ID:
00678396
Views:
20
>Thanks Al, but I solved it thus:
>
>local cZipDrive,lSpace
>
>cZipDrive = thisform.cZipDriveLetter && "G:"
>
>set default to &cZipDrive
>
>lSpace = diskspace()
>
>set default to c:
>
>if lSpace = -1 && zip disk missing from drive
> messagebox("INSERT ZIP DISK",16,"ERROR")
>
>else
>
>*** (action to follow if zip disk is in place)
>
>endif
>
>Regards

This code may produce a Windows Error message (not VFP) on Windows NT. See solution in this messages: Re: MediaCopy method is distribution Thread #643976 Message #644053
If it's not broken, fix it until it is.


My Blog
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform