Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Drive A: Validation
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00481231
Message ID:
00481249
Vues:
15
Hi!

Try using this code...

*************************************
LOCAL lcReturn
*-- Code begins here.
*-- Defines from Winbase.h
#DEFINE SEM_FAILCRITICALERRORS 0x0001
#DEFINE SEM_NOGPFAULTERRORBOX 0x0002
#DEFINE SEM_NOALIGNMENTFAULTEXCEPT 0x0004
#DEFINE SEM_NOOPENFILEERRORBOX 0x8000

*-- SetErrorMode determines whether the system handles
*-- serious errors or whether the program handles them.
DECLARE INTEGER SetErrorMode IN win32api INTEGER

*-- SetErrorMode returns to what the flags were last set.
*-- You need to store this in lnResult so that you can set them
*-- back the way they were before calling SetErrorMode.
*-- Failure to do so can produce unpredictable results
*-- when encountering future errors. SetErrorMode only
*-- applies to the current process and therefore only affects
*-- the FoxPro program that called SetErrorMode.
lnResult = SetErrorMode(SEM_FAILCRITICALERRORS)

**-- Test the FoxPro DISKSPACE() function. If you get a -1, then
**-- there is no disk in the drive.
*IF DISKSPACE("a:") = -1
* MESSAGEBOX("No disk present.")
*ELSE
* MESSAGEBOX("Drive is ready.", 0)
*ENDIF

*-- Put things back the way you found them.
lnResult = SetErrorMode(lnResult)

*-- Test DISKSPACE() again. If there is no floppy in the drive,
*-- a Windows NT system dialog box appears.
IF DISKSPACE("a:") = -1
MESSAGEBOX("No disk present."+chr(13)+"Please insert disk in Drive A:")
ELSE
MESSAGEBOX("Drive is ready.", 0)
ENDIF
*-- Code ends here.
Joe Mamokan
Database Specialist
Email Address: mamokan@eudoramail.com
Url Address: http://visnet_dd.tripod.com
"Can you VISUALIZE Quick Data Access"
Cell # +639172482033
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform